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Introduction 


The Commodore 64 possesses relatively sophisticated sound and 
graphics capabilities. The aim of this book is to encourage the reader to 
use those capabilities to their fullest extent. Merely reading about them 
and perhaps trying the short example programs in most books about the 
64 is, in general, not a satisfactory method of learning about them. 
Programming is best learned through ‘hands on’ experience. Actually 
using a feature in an application will lead the user to view it with far more 
confidence in the future. Therefore this book will lead the reader through 
the design and coding of a game, using as many of the graphics and 
sound features as possible. 


The game will be designed in a structured manner. The program will 
consist of both BASIC and machine code. This has a threefold purpose 
— to encourage the use of structured programming techniques; to 
enable the reader to build a library of useful subroutines; and to maintain 
interest by presenting information in short, easily digestible blocks. 


In order to cater for as wide an audience as possible, machine code 
routines will be presented in three ways. Firstly, as fully commented 
assembly language code. Secondly, where possible, as BASIC 
programs which illustrate the same concept. And finally, as DATA 
statements for inclusion in BASIC programs. 


To ensure that any user, including those without an assembler, can 
create a flexible library of routines, machine code will be, as far as 
possible, position independent. Where this is not the case it will be 
noted, and, when possible, instructions given for relocating the code. 


The book is divided into two sections. The first — the major section — 
deals with character, or low resolution, graphics. The second covers bit 
mapped graphics. Many of the routines, including sound routines, 
developed in the relatively less threatening atmosphere of character 
graphics will be directly applicable in bit map mode. Thus, the second 
section will concentrate exclusively on the capabilities and peculiarities 
of bit mapping. 


Features discussed include the following: 


Sound 
@ waveforms. 
e attack/decay/sustain/release. 
@ multiple voices. 
e filters. 
e interrupt-driven music. 


Character graphics 

@ changing video banks. 
changing screen memory. 
custom character sets. 
sprites, monocolour, multicolour. 
extended background mode. 
joystick control of sprites. 
scrolling. 
raster interrupts. 
@ using the collision registers. 


Bit map mode 
e plotting points. 
e split screens. 
@ multicolour. 


CHAPTER 1 


The Basic Game 


In order to show how a program can be enhanced by the use of better 
graphics and sound, we will start with a game program which uses a 
minimum of graphics. Then, using roughly the same game logic, we will 
add graphics and sound. 


First, a title screen. 


1 REM 440004 VERY BASIC GAME ki kx 

3 DIM X(5>,¥¢5>1GOTO 399 

285 REM *#ee4 TITLE #444 

299 PRINT "W"!SH=3 

490 vVS="HN aR DeDe ATE! 

419 FOR J=2@4 To 1 STEP - 

420 PRINT ""7LEFTS¢ V$,J>;TABC 1S); "Hex" 


439 PRINT " . 

4235 FOR K=1 TO S5@: NEXT 

448 NEXT J 

4508 PRINT LEFTS( ¥V$,3>; TABC 17>; "2006: " 
469 PRINT LEFTS#*< ¥$,19; TABC 15397 "A SPACE” 
47a PRINT TABC 16>; "IBIOCY" 

480 FOR J=1 TO 1@@@6:NEXT J 


The first stage of the game will consist of piloting a ship through an 
asteroid belt to the moon. 


4358 REM xkke** PART 1 4£*#%*+ 
389 K=9:A$="Se"ICOL=32:PRINT "“w" > TABS RNDE O22 * 
BaF "Hep " 
318 PRINT LEFTS(¢V#,7>97" #£ * * FE KF KE K KK 
Kk K K KK KHER KNEE 
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ba bab) 
Jor 


PRINT " xe + KX ** KAEE 4* & K * 


* * n i no 
PRINT "x* x *x ¥ KX KK Kx EE EK K KE 
KK *k ” 


YC OQ) =20:°RC O2=INTCRNOC O9435> 

PRINT "sg"? LEFTS¢ V3, YC 0997 TABC KC 0997A$7 "9 
LJ" 

FOR J=6@ TQ 1 STEP ®6:GOSUB 16: GOSUB3560: 
NEXT J 

IF SH=@ THEN END 

IF COL=42 THEN 586 


The second stage is a very simple lunar lander type game. 


REM #k*e**%* PART 2 *# ee 

COL=32! xt @) =INTC RND( 09438957 83=6 

PRINT "WJ"? TABC RCO) 307AS 

PRINT LEF TS VS ,20 > 7 "pm bere te 
ee ee ee 

PRINT "f{)"; TABC RND( 9)*38); "Bix" 

FOR J=8@ TO 1 STEP @:GOSUB 16:GOSUB 368: 
NEXT J 

IF SH=@ THEN END 

IF COL< >S6 AND COL*¢ +32 THEN 565 


The third stage is a simple ‘dodge the baddies’ game. 


bed 2 2 
814 
#20 
838 
840 
e508 
8608 


REM **x*** PART 3 £ee4e& 

M=@:PRINT "W"!FOR J=1 TO 5 

aC JZ=INTC RNDC( 89 «389i Ye J2=INTS RNDI O39 e219 
PRINT "S]"; TABC RC J397LEFTSt VS, YC J3907 "be" 
NEXT J 

MC MO = INTC RNDC 8943992 YC DO=INTC RNDC O859%*25>5 
PRINT "gi"; TABS XC O83 97LEFTS¢ VB, YS 297 "ap" 
FOR J=@ TO i STEP 9 

GOSUB 1208:REM: IF COL=62 THEN SH=SH-1:J= 
1 

AS="S>"=2K=8:GOSUB 1@:1F COL=96 THEN SH=Ss 
H-1i:J=1 

NEXT J 

IF SH< 76 THEN 3180 

ENO 


We can now fill in the subroutines referred to in the main loop. The 
joystick routine is written so that it can be used to control the movements 
of the ‘baddies’ in stage three as well as the player in all stages. 


3 REM x*x*x*x* JS CONTROL *£*x&** 

if H=PEEK( 56329): 3S=15-¢(X% AND 15):FB=x AND 
16 

eA COL=32:PRINT "si"; 

25 GON JIS GOTO 46 ,2209,38 ,70 ,1800,259,30 ,1 
328,160,194 

38 RETURN 

48 IF Y€K>?=@ THEN RETURN 

38 YOK =YCK3-1:GOSUB 308: 1F COL< 32 THEN Y¢ 
K3=Y¥ORK3+1°RETURN 

66 PRINT LEFTS¢ ¥V%,7( Koo; TRBA Ri K 207 AS; "BR": 
RETURN 

76 IF $< K}=@ THEN RETURN 

36 HC K3=4CK2-1:GOSUB 300:1F COL< 32 THEN X¢ 
Kd=ee KO +12 RETURN 

98 PRINT LEFTSC ¥$, 70 K 297 TABS ACK 27 ASF" ONS 
RETURN 

1fA IF *€K>=8 OR YCK>=8 THEN RETURN 

114 MOK =KC K-12 YOK =¥EKD-1:GOSUB3SE8: IFCOLS > 


SETHENK( KD HERO RK OFLE YOK OS =H=YCKO +1 RETURN 

126 PRINT LEFTS#( ¥#,Y¢K 297 TABC RIK 227 AS2 "OO": 
RETURN 

138 IF 4{K>=38 THEN RETURN 

149 me K 2=KCK2+1:G0SUBR00: IF COL< >32THENSS K3 = 
mt K-11 RETURN 

i5@ PRINT LEFTS¢ ¥$,YCK 237 TABS ROK 2370S? "ET ": 
RETURN 

164 IF ¢¥¢K>3=@ OR #X¢K>2=38) THEN RETURN 

178 YOK 2 =YCK3-1!5KCK 3 =HCK 3412 GOSUB300: IFCOL< > 
BETHENY!E KP H¥CKO+1 EMC KOHKROK 2-1 RETURN 

138 PRINT LEFT#( ¥V$, YC K39: TABC KCK O07; "SE " 
=RETURN 

ina IF ¢€¥€K3=21 QR KCKI=38>2 THEN RETURN 

286 YOK =YCKRF1IERC KS =RCK 3 +15 GOSUBS08: IFCOLS< > 
BSETHENKC KP HSRC KO -LIYC KD =¥YORK2-LIRETURN 

219 PRINT LEFTS< ¥$, YC K297 TABC XC K 297A; "CRM " 
>RE TURN 

229 IF ¥CK>?>2@ THEN RETURN 
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CHAPTER 2 


The Title Screen 


A good title screen adds polish to any game or utility. It will influence the 
attitude of the user to the rest of the program. If it’s impressive, the user 
will approach the rest of it with a positive attitude. If it's not, the user will 
more readily pick faults in your program. So, every effort should be 
made to produce a good title page. 

Having said that, let’s do something to improve our title screen. An 
obvious improvement is the rather pitiful sun. Instead of using a single 
character we should use a sprite. 


Sprites 


There are 8 sprites, numbered from @ to 7, available at any one time. 
These are easily definable and controllable objects. They differ from 
characters quite markedly. You could see in the original game that to 
move characters it was necessary to erase the character at the old 
position and then re-print it at the new position. Also, it is only possible to 
move characters in increments of character spaces. Sprites, however, 
have their movements controlled directly by the video chip. The user 
has only to tell this chip where to put the sprite — the chip handles all the 
details (such as erasing the sprite at the old position). Further, since 
sprites are high-resolution creatures, they can be moved one pixel, or 
1/8th of a character space, at a time. Thus it is possible to create the 
illusion of very smooth movement. 


Defining sprites 


The picture on television screens is made up of dots, called pixels (for 
picture elements). The Commodore 64 uses a screen consisting of 320 
pixels wide by 209 pixels high. A normal character is defined in an 8 x 8 
pixel space. The full height and width are rarely used, thus providing the 
spacing between the characters on the screen. In contrast to 
characters, sprites are 24 pixels across by 21 down. Defining a sprite 
consists of telling the video chip which of these pixels are on and which 
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are off. This is done by providing 63 numbers between @ and 255. Each 
number describes the on/off condition of 8 pixels. If the pixel is on thena 
1 is placed in its position, if off, thena@. The resulting 8 bit binary number 
is converted to decimal, as shown in the following diagram. 


Binary to Decimal Conversion 


128 64 32 16 8 4 


@x 64 
3 


+ Q 
+ 1x 32 2 
+ @x 16 @ 
+ 1x 8B A 
+ 1x 4 Q 
+ Q@x 2 1 
- + 1x 71 173 
Sprite Design Grid — 
l< 24 >I 
CE ee 0 24 Q 
Ean eee Ee ) 60 Q 
CCU Q 126 Q 
BE Snn87/ 777 7oo ) 126 0 
neeaaa BEREZGZAZZZA Pi; i i ttt} @ 126 Q 
Ag 2707¢/aaaaae 3 255 192 
BEEEEZCCZACZCOSCOAEEEEe 255 192 
Eb Le | —_ GOGO aaa Q 126 ") 
ZA ") 126 Q 
WZ ") 126 ") 
) 255 Q 
3 255 192 
31 255 248 
63 255 252 
63 252 252 
1 255 128 
@ 153 Q 
1 195 128 
VW 3 231 192 
Y4AACZCEEZ 3 231 192 
VAAMAA LAA 3 231 192 


The first three numbers describe the top row of the sprite, the next three, 
the next row, and so on. Generally, a zero is added as the 64th number 
for reasons which will become clear shortly. These numbers are 
normally stored in DATA statements. The DATA statements for our sprite 
are shown below. 


3490 REM #£k*ee*x TITLE SPRITE DATARKKEKS 

250A OATAQ,@,9,9,127,8,1,255,192,7,255,224,15 
7255 ,248,31,255,248,63,255,248 

2510 NDATAG3,255,252,63,255,252,127,255,25494,12 
f plo «e048 gies 

S520 OATALZ5S5S,254,127,255,254,63,255,252,63,25 
5,248 ,31,255,248,15,255,248,7 

2520 DATA2SS,224,1,255,192,08,127,0,8,8,0,0 


Placing Sprites 
Now that we've defined it we must: 


(a) decide where to put the data, and 
(b) tell the video chip how to find it. 


(a) The ‘where’ decision has the following constraints: 


1. it must be in the current video bank. 

2. it must start at an address which is a multiple of 64. 

3. it must be somewhere it won't overwrite something important. 
4. it must be somewhere it won't itself be overwritten. 


Constraint 1 arises because the video chip can only ‘see’ 16384 (16K) 
memory locations at any one time. Thus, anything to do with the display 
must be in the 16K block the video chip is looking at. These 16K blocks 
are called ‘video banks’. The standard video bank is from @ to 16384. 


Constraint 2 arises from the way we tell the video chip where to find the 
sprite data. 


Constraints 3 and 4 can be satisfied by checking the memory map for 
safe areas. The following areas in the standard video bank are safe. 
-832-1023: this is the cassette buffer, and is therefore only safe when the 
cassette is not going to be used at the same time. 


- in the BASIC program area. This is only safe when you have protected 
the area used for sprite data from BASIC. This is done by changing the 
pointers to the highest address used by BASIC, (55,56), and to the 
bottom of string storage (51,52). 

eg. POKE 56,48:POKE 52,48:CLR 


(locations 55 and 51 are normally 9) 


This puts the top of BASIC at 12288 (48256), leaving the area 12289 to 
16384 safe for sprite data. 


(b) telling the video chip how to find sprites. 


Screen memory is allocated 1K (1924) bytes. However, it only needs 
1009 bytes. Of the other 24, the video chip uses the last 8 bytes as 
pointers to sprite data. This is the case no matter where screen memory 
is located. Each sprite data pointer is the address of the start of the 
sprite data (relative to the start of the current video bank) divided by 64. 
If the default video bank is used, its start address is @, so the pointer is: 


start of sprite data/64 


The 8 pointers refer to the 8 possible sprites; @ to 7. If the screen is in the 
standard location, the pointers are 2049 to 2047. Pointer 2040 points to 
the data the video chip will use to display sprite 0, pointer 2041 points to 
sprite 1 data, and so on. 


We are going to put our sprite data at 832, and we will call it sprite @. The 
code to do this is as follows. 


1638 REM POKE TITLE SPRITE INTO CASSETTE BUFF 
ER 

1649 FOR J=832 TO 895:READ S:PQKE J,S:NEXT J 

173Q@ POKE 2840,13:V¥=53248 

The variable “v” defined above is the start address of the video chip. Itis 

easier to refer to sprite control locations in terms of this than as absolute 

addresses. 


Controlling Sprites 


The following attributes of sprites are supported by hardware and can 
be controlled by the programmer. 


(a) Horizontal position. 
(6) Vertical position. 
(c) Horizontal size. 
(d) Vertical size. 

(e) Priority. 

(f) Colour. 

(g) Enabling. 


(a) Sprites can be placed with their top left hand corners at any 
horizontal position between Q and 511, where @ is the top left hand 
corner of the screen. However, sprites use a larger screen than what you 
see. The visible screen extends horizontally from 24 to 343 in terms of 
the sprite co-ordinate system. This arrangement allows you to move 
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sprites smoothly on and off screen, rather than have them abruptly 
disappear at the edge of the screen, as characters must. 


(b) Vertical positions of sprites run from @ to 255, with @ again being at 
the top left hand corner of the screen. Again, sprites use a larger screen 


than what you see. The visible screen extends vertically from 
590 to 250 in terms of the sprite co-ordinate system. 


Visible vs. Sprite Screen 
i) 24 344 


---90 
—- 50 
VISIBLE 
SCREEN 
~— 250 
--— 255 


SPRITE SCREEN 


The video chip locations which control sprite positions are located from 
v(53248) to v+16. The first 16 locations are arranged in pairs, the first 
member of which is the horizontal (x) co-ordinate, the second being the 
vertical (y) co-ordinate, as shown below. 


sprite # Xx Co-ord y co-ord 
0 V v+1 
1 v+2 Vv+3 
2 v+4 v+5 
3 v+6 v+7 
4 v+8 v+9 
5 v+10 v+11 
6 v+12 v+13 
7 v+14 v+15 


The last location in this block, v+16, is also used to control the x position 
of the sprites. Since 1 byte can only be used to store numbers up to 255, 
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one more bit is needed to make up the numbers 256 to 511. So each 
sprite has the corresponding bit in location v+16 assigned as the high 
bit of the x co-ordinate . . . sprite @ is assigned bit Q, sprite 1 has bit 1, 
etc. 


e.g. to put sprite @ at 198,120: 

POKE V,198:POKE V+1,120:POKE V+16,0 

e.g. to put sprite 3 at 278,134: 

POKE V+6,22:POKE V+7,134:POKE V+16,2 t 3 


Poking v+16 with 2 to the power of the sprite number sets the correct bit, 
giving an x co-ordinate of 256+22=278. 


(c&d) Sprites can be expanded to twice their size, horizontally, 
vertically, or in both directions at once. For horizontal expansion, each 
sprite has a corresponding bit in location v+29 (53277). If the bit is set, 
the sprite will be expanded. 


e.g. to expand sprite 4 horizontally 
POKE V+29,2 f 4 


For vertical expansion, each sprite has a corresponding bit in location 
V+23 (53271). Again, a set bit means that the sprite will be expanded. 


e.g. to expand sprite 0 vertically 
POKE V+23,2 f @ 


(e) The priority of a sprite refers to whether it appears to move in front of, 
or behind, other objects on the screen. 


There are two types of priority . . . sprite/sprite, and sprite/background. 
Sprite/sprite priorities are fixed. The higher the sprite number the lower 
the priority. Thus, sprite Q will appear to move in front of any other sprite 
whose path it crosses. Sprite 7 will always move behind other sprites. 
Sprite/background priorities can be controlled by the programmer. This 
is done by setting or clearing the corresponding bit in memory location 
V+27 (53275). If the bit is cleared (Q), the sprite will move in front of any 
background characters. If it’s set (1), it will appear to move behind the 
background. 


e.g. to make sprite @ move behind background. 
POKE V+27,2 tT 0 


(f) Monocolour sprites can be any one of the 16 colours available on the 
Commodore. This is controlled by poking the colour code into locations 
V+38 (53287) to v+46 (53284) for sprites @ to 7 respectively. 
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e.g. to colour sprite 5 yellow. 
POKE V+44,7 


The sprite colour will affect all the sprite pixels which are on. The pixels 
which are off (defined as Q) are transparent and will therefore show 
whatever colour is behind the sprite at the time. This can be used to 
build up high resolution multicoloured shapes by putting one sprite on 
top of another. You can arrange the sprites to be transparent in such a 
way that those above allow the colour of those below to come through. 


(g) A sprite can have all the attributes above without actually appearing 
on the screen. To display it, you must set its ‘enable’ bit. Each sprite can 
be enabled by setting the corresponding bit in location v+21 (53269) 


e.g. to turn on sprite 3, and all others off. 
POKE V+21,2 73 


e.g. to turn off sprite 0, leaving others untouched. 
POKE V+21,PEEK(V+21) AND 254 


Now let's set up the attributes for our title sprite. 


1749 FEM #«*#SET UP SPRITE CONTROL DATA eK 

IVS POKE V¥tes,@:POKE V+ea,68 

{760 POKE V+te7,1:POKEV,160:POKEV+t39,7:POKEV+t2 
1,1 

1846 RETURN 


Animation of the sun sprite is much simpler than it was for the character 
we used in the previous version. To make it more interesting, we'll 
change the background colour as the sun sprite rises. Background 
colour is controlled by location v+33 (53281). 


ease REM **x*e*4eSTART TITLE GRAPHICS*&#a4% 

P6336 FOR J=1 TO 158 

ei@e@ POKE Vtl,e20a-J 

e1ia IF INTS JW2O3=3°208 THEN READ CPPOKES32S81, 
Cc 

Pilea FOR K=1 TO S@: NEXT K,J 


Data for the background colours is: 


274A OATA @,2,9,19,8,7,1:REM TITLE BACKGROUND 
COLOURS 
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This is still a bit simple. Let’s add a suitable landscape, using the 64's 
built-in graphics symbols. Using only colour, reverse, shift &£, 
commodore *, and space keys, we can create the following landscape: 


3579 
3388 
3598 
3688 
3610 
2628 
3630 


3648 


365@a 


S660 


3678 


REM *#*kk*SCREEN BACKGROUND 4444 
DATA 5, "Sa" 
DATA 4, "Fr Ww 
DATA 3, "Sr = 

DATA 3,""aa % 

DATA 2, "Sar = | 3 
DATA 9, "Sar = mi a 


DATA ©, "Sia 


The code to display the landscape is as follows: 


26198 
226 


eHa3e 


2a4qa 
2650 
red md 
2679 


REM *4%%*SET UP TITLE BACKGROUND ***** 
j 


UMN MODE 

FOR J=6 TO 14 

READ T,L*S 

PRINTTABC T27LS:NEAT J 
READ T,L#: PRINT TAB TFL 
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The only graphics related code in this is the line which converts the 
screen to 38 column mode. This causes the screen border to expand to 
cover the two outer columns. These columns are still there, and can be 
printed too. They are just not displayed. This mode was used because 
printing right across a line produces an automatic line feed, thus altering 
the appearance of our landscape. By using 38 column mode, we can 
print 38 characters across a line, and cover the blank columns, making It 
appear as though we've printed across the entire line, while avoiding the 
problem associated with that. We will describe 38 column mode in more 
detail in the section on horizontal scrolling. 


We'll make the name display more interesting too, by using extra large 
characters. Rather than putting them in data statements, as we did the 
landscape, we'll define each oversize letter as a character string. This is 
probably a better technique to use than storing them as data 
statements. It is easier to re-use them, as they are always available as 
variables. If they are stored as data statements, a restore statement 
must be used, and the data read until the correct information is found. 
As a further advantage, each variable can be used in a different context, 
at a different screen positon and so on. The character strings are 
defined using cursor control, reverse, space, shift f, commodore *, and 
commodore L keys. 


1650 POKES3272,21:REM UPPERCASE 

1669 I=" EMI Hl FM! Si Hai‘ | 

i679 OS=" “EES EBM! 2] SEM! Gl SER =SRRI 
ru 

1686 Of¢=" EERBI FERS! 2] SRR Fl HERR SERB 

1698 c#=" SREB ERBEI ERI ERI ZEi " 

{799 YS=" BBl RSS oS" eR CREE GEES 
an 

i7via 

17a 


The variable “V$" is used as a vertical tab (which the 64 lacks), by 
applying the string function “LEFT$” to it. 
We can now complete our title graphics using the following code. 


2130 PRINT" SI": TABS 1627LEF TS: VS,93+"MR SOG: ” 
14@ FOR J=1 TO 29@@:NERT J 

150 PRINT*st": TABC 15) :LEFTS( ¥#,23>+"A SPACE" 
i6Q@ FOR J=1 TO 2@@:NEXT J 

217Q PRINT"Ska": TABS 9): LEF TSC ¥S,597 
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2188 
21356 
eeAa 
2216 
ee7a 
2230 


PRINT" gg" +I1$+T$+D$+T$+1$+T$Os; 
PRINT" sa" +T$+C#$+T$+¥s 

FOR J=8@ TO S58@@:NEXT 

IF WAYT=1THENFORIJ=9 TO 1008: NExT 
PRINT "yy" 

RETURN 


Since we have set the title up as subroutines, we should start out 
mainline code. 


aa 

192 
128 
149 
168 


REP CURRENT 31-1-84:AM 

POKESS6 ,S6:POKES2,936:CLR 

PRINT "J": PQKEV+21,0 

GOSUB 1648:REM SPRITE,LARGE LETTERS,ETC 
GOSUB 2920:REM DO TITLE GRAPHICS 


A SPACE 


THE TITLE SCREEN 
See pages 13 to 16 
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CHAPTER 3 


Title Music 


lf you have ever watched a suspense movie without the sound you will 
know how important music can be in setting the mood. Since the 
Commodore 64 has quite a sophisticated sound chip you can use it to 
set a mood, create sound effects or just play music. 


However, unless you are using the 64 only to play music, you need to be 
able to do other things at the same time. For example, if we want to add 
some stirring music to our title screen, we don’t want to have to stop the 
animation in order to do so. Therefore, before we discuss the 
capabilities of the sound chip, we had better solve the problem of 
playing music and carrying out other tasks at the same time. 


Luckily, the solution is pretty simple, as the Commodore 64 allows us to 
use interrupts. 


Interrupts 


Given the computer world’s penchant for using esoteric acronyms, it is 
pleasantly surprising to find a computer term which means exactly what 
you would expect it to mean. An interrupt is an event external to the main 
microprocessor chip (the 651@) which causes it to stop whatever it is 
doing and attend to whatever caused the interrupt before returning to 
the task which was interrupted. 


For example, the 6519 is interrupted every 1/6@th of a second by the 
clock (timer A). When this happens, the 651@ stores the program 
counter value (which tells it where it is in a program) and the status 
register and jumps to a routine near the top of memory. This routine does 
various tasks, the major one being a keyboard scan. When it has 
finished this interrupt routine it recovers the stored status register and 
program counter and continues from the address pointed to by the 
program counter. 
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However, there is no way to get into the interrupt structure from standard 
BASIC. The use of machine language or a higher level language which 
supports interrupts is necessary. 


There are three types of interrupt catered for by the 64 — hardware IRQ 
interrupts, software (BRK) interrupts, and NMI interrupts. We will only be 
using hardware IRQ interrupts but a brief discussion of the differences 
between the three may be helpful. 


IRQ stands for Interrupt Request Queue. When an IRQ interrupt occurs 
one of two things may happen. If an interrupt is already being 
processed, the new interrupt is put on a queue and waits for its turn. If no 
other interrupt is being processed the interrupt is processed 
immediately and a flag is set, causing other interrupts to be queued. 


NMI stands for Non-Maskable Interrupt. Basically this means that these 
interrupts have a higher priority than IRQ interrupts. They are not put on 
queues to wait their turn. They are processed immediately, displacing 
any IRQ interrupts which are currently being processed. For example, 
hitting the RUN/STOP RESTORE keys generates an NMI. 


Software interrupts are generated by BRK instructions in machine 
language code. Otherwise they are treated the same as NMI interrupts. 


Using Interrupts 


The Commodore has been designed so that whenever an interrupt 
occurs the address of the interrupt routine to be carried out is found at a 
pair of locations in RAM (Random Access Memory). These pairs of 
addresses are called “vectors”. A different vector is used for each type 
of interrupt. The beauty of this system is that these vectors can be 
changed to point to any routine. In other words, we can use the 
hardware generated IRQ interrupt to process our routine, rather than the 
timer A routine by changing the vector address to point to our routines. 
Thus, all we have to do is write our own routine, put it in memory, and 
change the appropriate vector to point to it. The vectors are: 


Interrupt Source Vector Address Default Value 
hardware IRQ 788, 789 59953 
software BRK 790, 791 65126 

NMI 792, 793 65995 
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The addresses of the interrupt routines are in the usual 6592 format — 
low byte first, high byte last. Before changing the IRQ vector, interrupts 
must be disabled (otherwise an interrupt may occur when only one of 
the bytes has been changed, thus sending the processor off to an 
unintended location). While it is possible to selectively disable IRQ 
interrupt sources, for the moment it is simpler to disable all IRQ sources. 
This is done by clearing bit 7 of byte 56333. 


The technique for safely changing the IRQ vector is as follows: 


POKE 56333,127 
POKE 788,lo-byte of interrupt routine address 
POKE 789,hi-byte of interrupt routine address 
POKE 56333,129 


The last poke enables IRQ interrupts in general (by setting bit 7), and 
timer A in particular (by setting bit Q). 


Raster Interrupts 


We might as well complicate the issue while we're on interrupts. The 
timer is not the only source of IRQ interrupts on the 64. The other source 
of interest to us is the raster. 


The screen is ‘drawn’ by an electron beam scanning across from left to 
right. There are 312 (Q-311) of these ‘horizontal scan lines’, although 
only 200 (50-249) of them appear on the visible screen. The entire 
screen is scanned 5@ times a second. The 64 offers the option of 
generating an IRQ interrupt, called a ‘raster interrupt’, at the start of 
every scan line. 


Why is this of any interest to us? Well, if we update the screen — move 
characters, sprites, scroll, change colours, etc — at a random time, it is 
very likely that we are going to be changing something while the raster 
beam is trying to draw it. This causes the screen to flicker. As well as 
being annoying, this detracts from the professionalism of an 
application. Using raster interrupts it is possible to avoid flicker, by 
determining exactly when screen displays will be changed. This is 
usually done during the ‘vertical blank’ — the period during which the 
raster beam is scanning across the part of the screen not visible. 


The Raster Compare Register 


The ‘raster register’ is 9 bits long. Obviously, it must be located in more 
than one byte. It is made up of the 8 bits of location 53266, with the ninth 
bit of the register being the high bit (7) of location 53265. 
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This is a dual-purpose register. If read, it returns the number of the scan 
line that the beam was on at the time of reading. If the register is written 
to, the value is ‘latched in’ (stored) and when the electron beam reaches 
that scan line a flag is set, and, if the proper interrupt enable bit is set, an 
interrupt will be generated. 


The flag is bit @ of the byte 53273. Other bits flag the occurence of other 
types of interrupts. 


Interrupt Status Flags 

Bit # Use 

7 Set on any enabled 
IRQ condition 

3 Light pen flag 
(1 per frame) 

2 Sprite/sprite 
collision flag 

1 Sprite/background 
collision flag 

) Raster compare flag 


These flags remain set until you write a 1 to them. 


Interrupts from these sources are enabled by setting bits in the byte 
53274. 


Interrupt Enable Flags 

Bit # Use 

7 To enable any of these 
sources 

3 To enable interrupts 
triggered by light pen 

2 To enable interrupts caused 
by sprite/sprite collisions 

1 To enable interrupts caused 
by sprite/background collisions 

Q To enable interrupts caused 


by the raster compare register 


The steps necessary to use raster interrupts are as follows: 
(a) turn off interrupts. 
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(b) write the desired raster value to the raster compare register. 

(c) change the IRQ vector to point to your raster interrupt handling 
routine. 

(d) enable raster interrupts. 


In order to react to interrupts fast enough, it is necessary to use machine 
language. BASIC just isn't fast enough. For those who don’t know 
machine language, the following program should help. It is a Raster 
Interrupt Scheduler (RISC), designed to use a database to determine 
what routines to carry out at what scan line. Thus non-machine language 
programmers will only need to set up a database and initialise raster 
interrupts as above. 


**xRASTER INTERRUPT SCHEDULER**4#*% 


-O5 

-BAR $C880 
‘RASTER COMPRRE REG ¢ LOBYTE > 
RASTREG -DE AS32665 
FRASTER COPPARE REG < BITS? 
HIRAS <DE S2265 
7;PTR TO START OF DATA BLOCKS 
SOL -DE 72? 
7PTR TO CURRENT DATA BLOCK 
COLE -DE 723 
F INTERRUPT STATUS REGISTER 
STATUS DE S3273 
?FWORK ING STORAGE OF CDLE 
COL We Bol 


?PTR TO TIMER INTERRUPT ROUTINE 
TIMER INT «BE TSi 
?RESTORES REGISTERS AFTER INTERRUPT 


FAD IMT -DE SEATE 
FOUMMY ITS CHANGED TO ADDRESS OF SUBR 
DUMPPyY -DE EAS! 


?CHECK WHETHER FASTER OR TIMER INTERRUPT 
LOA STATUS 
AND #iesS 
BNE START 
?TIMER GOTO OLIN ROUTINE 
JHP < TIMER INT > 
START LOA #1 
STA STATUS 


TRANSFER DATA ADDRESS TO 2-PAGE 
LOA COLE 
STA *CDL 
LOA COLE +1 
STA *CDL+tl1 
3SET INDEX INTO DATA 
LOY #1 
7;GET NR OF SUBROUTINES FOR THIS INTERRUPT 
LDA <CDL),Y 


TAS 

INY 
PUT ADDRESS OF SUBR INTO JUMP VECTOR 
DASUBR LOA ¢CBDL>,Y 


STA VECTOR+1 
INY 
LBA ¢CDL?,Y 
STA VYECTOR+2 
INY 
ISAVE REGISTERS #,Y AND COL 
TAA 
PHA 
TYA 
PHA 
LDA *COL 
PHA 
LOA *«COL+) 
PHA 
?;NOL] EXECUTE THE SUBROUTINE 
VECTOR ISR DUMPTY 
PLA 
STA *COL+1 
PLA 
STA *CDL 
IRESTORE REGISTERS &,Y,CDL 
PLA 
TAY 
PLA 
TAX 
DES 
:00 NEXT SUBROUTINE IF IT EXISTS 
BME DOSUBR 
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7IT DOESN'T-CHECK IF END OF DATA BLOCKS 
LDA (CoOL) Y 
?NO-SET UP NEXT BLOCK 
BNE NEXTRAS 
-YES-MAKE FIRST BLOCK CURRENT 
LOA SODOL 
STA xCDL 
STA CDLE 
LOA SDOL+1 
STA *CDL+I1 
STA CDLETt!1 
FRESET DATA INDEX 
L.DY #8 
7;PUT NEXT RASTER VALUE INTO RASTER REG 
LOA <«CDLO,Y 
NEATRAS STA RASTREG 
PASSUME BIT 8 SHOULD ALWAYS BE 9 
7;FOR RASTER COMPARE 
LOA HIRAS 
AND #127 
STA HIRAS 
FUPDATE COLE BEFORE LEAVING 
750 THAT NEAT INTERRUPT GETS CORRECT ROLTINES 
TYA 
CLe 
ADC CDLE 
sim COLE 
BCC LI 
INC COLE+i 
L. 1 IMP ENDINT 
~EN 


Before we describe the format of the database, here’s the program 
above in the form of data statements. Type this in as a stand-alone 
program and save it as “RISC.DAT”. Don't include it in either the sound 
program or the game program. It is meant to be used with any program 


you write in the future. We will soon introduce a tool to make this easier to 
do. 
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i REM 
i996 S = 
= Cc 
110 IF Cc 
END 


1248 DATA 
138 DATA 
146 DATA 
15a DATA 
1669 BATA 
176 DATA 
138 DATA 
130 DATA 
2aa DATA 
219 DATA 
22a DATA 
2308 DATA 
240 DATA 
258 DATA 
e686 DATA 


kxXkekKX RISC.DAT KKK EREE 


49152:FOR I = $ TO 53 + 119°READ HEC 


+ KIPOKE 1,X!:NEXT 
< > 1689@ THEN PRINT "DATA ERROR!!" 


172,25,208,41,129,208,3,108 
219,2,169,1,141,25,208,173 
217,2,133,251,173,218,2,133 
252,160,1,177,251,1708,200,177 
251,141,54,192,200,177,251,141 
55,192,290,138,72,152,72,165 
P51,72,165,252,72,32,99,234 
104,133,252,104,133,251,194,168 
194,170,202 ,298,218,177,251,c08 
26,173 -215,2,12335,251,141,21Fr 
2,173,216,2,133,252,141,218 
2,168,6,177,251,-141,138,298 
173,17,208,41,127,141,17,298 
152 ,24,109,217,2,141,217,2 

144 ,3,2328,218,2,768,126,234 


RISC Database Format 


The database format for RISC is: 


raster command line 
raster command line 


Q (to terminate data) 


A raster command line consists of: 


raster line number 

number of routines to be executed 

lowbyte of address of first routine 

high byte of address of first routine 

addresses of other routines in the same format as the first. 


The function of RISC is to respond to a raster interrupt by executing the 
indicated routines and then putting the next raster line number into the 
raster compare register so as to cause the next raster interrupt. At the 
end of the data block it will return to the start of the block for the next 


raster line number. 


24 


Using the Raster Interrupt Scheduler 


Having written the database, and put both it and the routines it refers to 
in memory, you should carry out the following steps. . . 


(1) turn off interrupts. 

(2) change the IRQ vector to point to RISC. 

(3) poke the address of the database into the following RISC 
vectors: 


727,728 — start of database 
728,739 — current raster block 


(4) poke the address of any routine you want carried out by the 
timer interrupts into: 


731,732 — timer int 


You need not put any address in this vector if you don’t enable the 
timer interrupts. If you do, a safe address is 53353 (the ROM timer 
interrupt routine). 


(5) poke the value of the first raster scan line in the database into 
the raster compare register. (If you don't put the first one in, you will 
still have the first set of routines in the database executed by RISC. 
Since this will probably be at the wrong part of the screen, it will 
destroy the appearance of the display.) 


(6) enable raster interrupts. 
Binary Files 


lf we include all our machine code programs, sprite and other data in the 
main program, it will be an extemely large program indeed. This is 
undesirable since a large program is difficult to list through and takes 
longer to load. One solution to this is to put the data in separate, small 
programs (as we've done above with RISC.DAT), and merge them into 
the main program later. This has the added advantage of making the 
machine language programs or sprite data portable. That is, they can 
be added to any program, not just the one they were originally designed 
for. The disadvantage of this is that Commodore BASIC doesn't have an 
explicit merge command. It is still possible to merge programs by 
changing program pointers, but it is then necessary to worry about the 
added line numbers clashing with the original ones. All in all, merging 
BASIC programs is a bit of a bother. Luckily we don't have to. Through 
the courtesy of Andrew Pavlomanolakos, author of ACOS+ (an 
extended BASIC and utility package published by Melbourne House), 
we have the ACOS+ binary save and load routines. This means that 
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once the data for a sprite or machine code program is in memory, we 
can save it out as a block. It can then be added quickly and easily in the 
same way. 


The following data file contains the code for these routines. You should 
type it in as a stand-alone program and save it as MSAVE.DAT. 


i REM ****%e%e MSAVE.DAT *#***4*4+ 

194 S$ = 53137:FOR I = S$ TO S + 169:READ #:C 
= € + ®!POQKE I,X%!: NEXT 

116 IF € ¢ > 15270 THEN PRINT "DATA ERROR! !" 
:=END 

115 MSAYVE = S21i37:MLODE = 53206 

129 DATA 32,181,207 ,32,253,174,32,178 

138 DATA 207,134,253,132,254,32,230,225 

1468 DATA 166,253,164,254,1639,251,76,95 

1508 DATA 225,32,139,173,32,247,183,166 

169 DATA 26,164,21,96,162,1,169,6 

17a DATA 169,0,32,186,255,32,121,0 

134 DATA 2496,14,32,87,226,32,253,174 

138 DATA 32,178,207,134,251,132,252,36 

rae DATA 162,11,76,55,164,165,8,133 

2ia DATA 10,32,181,207,32,230,225,165 

2290 DATA 14,166,251,164,252,32,213,255 

2320 DATA 144,3,76,249,224,165,19,246 

24a DATA 3,76,126,225,32,183,255,41 

eae DATA 191,240,212,76,156,225 


Initialising MSAVE 

Before using MSAVE we must get it into memory. Do this by loading and 
running “MSAVE.DAT”. Once this is done the machine code program 
has been loaded into the correct part of memory and is ready for use. 
The MSAVE.DAT file that was loaded in can now be overwritten 


because, when run, it stored the machine code program elsewhere in 
memory where BASIC can't affect it. 


How to use MSAVE 


The format for this command is: 
SYS53137‘filename’” start,end+1,devnum,sa 
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53137 is the start of the MSAVE routine. It must be located here unless 
the program is re-assembled. There is no comma between the 
SYS53137 and the filename. 


“filename” is the name under which the block of memory is to be saved. 
If you're saving to datasette you don’t need a name (although you may 
have one). If you're saving to disk you must have a filename. 


“start” is the starting address of the memory block to be saved. 


“devnum” is the number of the device you're saving to. As usual, the 
disk drive is 8, the datasette is 1. If no device number is given, it is 
assumed to be 1. 


“sa” is the secondary address. These are as usual in the Commodore 
system. A secondary address is not usually necessary. 


Examples 


SYS53137"TEST”,49152,49664,8 
This will save a file to disk under the filename “TEST”. The bytes from 
49152 to 49663 inclusive will be saved. 


SYS53137"",9,1 
This will save an unnamed file to the datasette. The file will contain only 
the byte Q. 


SYS53137"ZEROPAGE”,0,256,8,1 

This will save to disk, under the filename “ZEROPAGE”, the 256 bytes 
from @Q to 255 inclusive. When loaded, the file will be located where it 
came from. 


How to use MLOAD 


The format for this command is: 
SYS53206 ‘filename’ start,devnum,sa 


This will load a file starting at the start address given. Exceptions to this 
are when the secondary address is a 1, in which case the file will be 
loaded at the address it came from, no matter where you tell it to load. 
This also occurs if the file was saved with a secondary address of 1, no 
matter what secondary address it is loaded with. This can cause very 
perplexing errors, particularly if you've forgotten that you saved it with a 
secondary address of 1. 


Other details are as for MSAVE. 
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Examples 


SYS53206"FEB.DAT”,49152,8 
This will load a file called “FEB.DAT” from disk into memory starting at 
location 49152 (unless the file was saved with a “sa” of 1) 


SYS53206"SPACE”,9,1,1 


This will load a file called “space” from datasette into memory starting at 
wherever it was saved from (i.e. not necessarily 9). 


The program has been assembled so that it can live at the top of the free 
AK block which starts at 49152. Since this area is little used, you should 


be able to put MSAVE in at the start of a session and forget about it until 
needed. 
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CHAPTER 4 


Sound on the Commodore 64 


In this section you will find a database oriented machine code routine for 
sound production, and a BASIC program to create the database used 
by the machine code routine. 


Development of the BASIC code will provide a good forum for 
demonstrating control of the abilities of the sound chip (SID). First, 
however, it may be useful to provide a brief coverage of the capabilities 
the program must control. 


1. Voices 


There are three voices. This means that the 64 is capable of playing 
three notes at the same time. Each voice has seperate controls for most 
of the available functions. Exceptions are volume, filter mode and filter 
cutoff frequency, and resonance settings. 


Voice 1 is controlled by the first 7 bytes of the SID, voice 2 by the second 
7 bytes, and voice 3 by the third 7. The SID starts at 54272. 


2. Waveforms 


Each voice has separate waveform control and can take any of four 
waveforms. These are noise, variable pulse, sawtooth, and triangle. 


3. Frequency 


A note is determined by its frequency. (For a note, to be is to be 
frequent.) Each voice has a 2 byte frequency register, and is therefore 
capable of storing values from @ to 65535. Naturally, not all of these 
frequencies are audible. 
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4. Envelopes 


Each voice has an ADSR envelope control. ADSR stands for Attack 
Decay Sustain Release. This determines the life cycle of a note, as 
shown in the diagram below. 


Decay +.«——— Sustain ——-+,« Release -, 
time | duration ; time 


« Attacktime ——,» — 


' 
1 
' 
' 
! 
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Sustain volume 


Attack is a 4 bit value representing the time it takes a note to rise to 
maximum volume after being turned on. 


Decay is a 4 bit value representing the time it takes a note to fall from 
maximum volume to sustain volume. 


Sustain is a4 bit value representing the proportions of maximum volume 
at which the note will be held until it is turned off. 


Release is a 4 bit value representing the time it takes a note to fall to zero 
volume from sustain volume after the note is turned off. 


5. Turning Sound On and Off 


While much of the ADSR envelope execution is automatic, sound must 
be explicitly turned on and off by the programmer. Notes are turned on 
by setting a “gate” Bit to 1. The attack, decay and sustain phases are 
automatically executed. Once the sustain phase is entered, the note 
continues to sound until the gate bit is cleared. However, it is quite 
possible to play an entire tune without clearing the gate bit, other than at 
the end. Any other music parameter may be changed during the sustain 
(or indeed, any) phase. 


6. Volume 


There is one master volume control for all 3 voices. This is a4 bit value So 
volume ranges from @ to 15. 
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7. Filters 


There is a filter switch for each voice. When a switch is set the voice is 
sent through the filters before being output. There are 3 filter modes. 
Whichever mode is set applies to all voices whose filter switch is on. 


The modes are: 


(a) Lowpass — frequencies below the cut-off frequency are 
passed unaltered). 

(b) Highpass — frequencies above the cut-off frequency are 
passed, while those below are attenuated. 

(c) Bandpass — a narrow range of frequencies around the cut-off 
frequency is passed unaltered. 
The cut-off frequency is an 11 bit value which allows a cut-off 


range from 3QHz to 12KHz. 
THE SOUND CHIP REGISTERS 
Bit significance Register usage 
(Voice-1) 
REG No. b7 

0 Low byte of note frequency 

1 High byte of note frequency 

2 Low byte of pulse width 

3 High byte of pulse width 

4 Wave form control 

5 Attack/decay for envelope 


Sustain/release tor 
envelope 


Voices 2 and 3 are the same as the above except that they are stored in 
registers 7 to 13 and 14 to 20 respectively. 


Bit significance Register usage 
(Filter) 


21 Low cutoff trequency 

22 High cutoff frequency 

23 Filter switches and resonance 
24 Filter modes and volume 
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Bit significance Register usage 
(Misc.) 
25 Paddle - x 
26 Paddle -y 


Oscillator - 3 output 


27 
28 


Pa 
P2 
O2 
E2 


Envelope - 3 output 


NOTE: The sound chip registers are accessed via memory locations 
54272 to 54300. 


As you can see from the diagram above we haven't covered everything 
the 64’s SID is capable of. However to avoid confusing you with too 
much detail this will suffice for the present. It’s high time we started 
writing the database creation program. 


First, let’s make it clear what we expect from this program. 


iga REM**«k*x4 SOUNDBASE #444 

118 REM**x*xk* CREATE SOUND DATA 4*4 4% 
128 POKES6 ,96:POKE52,96:CLR 

138 GOSUB 1486:REM INITIALIZE 

148 PRINT" JSR BRBIREATE NOTE >> gm" 
156 PRINT" SEBBBRBBFOIT NOTE >> <—@" 

16a PRINT" SRRBRRBRPRBRRBISAYE >> om" 

i176 PRINT" SRS ESRBRRBBEBRT.OAD >> 

18a PRINT" SSRBRSRPRRBBREP LAY >> 3m" 

134 PRINT" SERBRRRBRRBBSFEXIT >> 2m" 

PAA TMP LT " Spy eae a "|S 

2108 IF AS="C" THEN GOSUB 299 

P20 IF AS="E" THEN GOSUB 940 

230 IF AS="S" THEN GOSUB 1130 

24a IF AS="L" THEN GOSUB 1200 

258 IF AS="P" THEN GOSUB 1270 

Fd i IF AS="H" THEN PRINT"W":GOTCG 2808 
27a GoTo 149 

esa END 

Before creating the database we had best decide what form it will take. 
In the interest of brevity and simplicity, we will store only the following 
data for each note. 


volume 

frequency 

waveform — which includes the gate bit 
duration 
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There will be 3 blocks of data — one for each voice. Each block will be 
terminated by a 255 volume value. In the following | have allowed 512 
bytes for each voice data block, i.e. enough for 192 notes in each voice. 
We will also allow any number of the voices to be played. 


The initialisation routine follows: 


197Q@ REM xekxexx INITIALIZE RKKAS 
1439 OTM ¥¢33,E033,F0133,NS3,100> ,WS 3) ,NNRC 
3? 
1490 YWC=1:0C=4:NCH$="C"IWFS="T"'GB=1:VOL=10:AD 
=2460:S5R=250:PW=2383 
i500 Sipb=S4e272!: INPLAY=7S3'DL=25:FOR J=1 TO 3: 
NNRC T2=682>NERT J 
IS16@ REM *44e*e4e5SET UP RISC PTRS*4£4e%% 
2A POKE 7Y27,8:POKET2S, 194: POKE729,0:POKE?3@ 
,184:REM *#RISC DATA PTRS#*# 
1530 POKE 731,43:POKE 732,234'REM TIMERINT 
15460 REM #*€**4*eSET UP SOUND PTRS#**#k&ke 
tS58@ POKE INPLAY,9& 
1555 REM **4VOICE DATA ADDRESSES*#* 
i56O) Ve 1)=250889¥6 2 =25600: VC 3>=26112 
1565 POKE F57,38:POKE 753,190:POKE 753,102: 
FOR K=8@ TO 2:POKE 754+K,0:NEAT BK 
TO FOR J=1.TO StFE¢ Je=¥C JDINERT J 
A WSC OO="TM IW 19="S WE 2H "PWS So ="N” 
90 FOR J=@ TO 13:READ D:Ft J2=DINEAT J:REPI *& 
**NOTE TABLE *4# 
1690 FOR J=@ TO 4:READ O:POKE S6624+3,0:NEAT: 
REM RISC DATA 


16180 RETURN 
1620 REM WOTE TABLE DATA 
1630 DATA 451,506 ,2°68,301,337,3258,401,477,8,2 


34 ,3135,0,379,425 
164@ REM RISC DATA @ 26624 
1650 DATA 250,1,121,1392,0 


As well as initialising addresses and arrays needed, this section sets up 
default values for the user (we like to keep decisions to a minimum). 


Now the code for the data creation section. 


eaa REM *x**x*CREATE MOTE DATA**4%% 
308 PRINT” JBBBIVOICE NUMBER (1,2 OR 33 . 
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VC"—MMME"; : INPUT VC 
Vet VO-1>*7 
POKE ECVCo+t+5, 


DATA 


255:REM SET UP END OF YOICE 


PRINT" SBBEBBBBBBBICTAVE (8-7? "OC" (ERI 
";: INPUT OC 

PRINT" EERBRRRRBBBBBRIOTE (A-G,#> "NCS" 
":2INPUT NCS 

PRINT" SBBRRRBBBRIAYEFORM ¢T,5,P,N> "WE 
"EMMY: | INPUT WS 

PRINT" RBBBBBBBIGATE BIT ¢1/05 "GB" IRI 
"2 TNPUT GB 

PRINT" SRRRBBRBBBBVOLUME <O-15> "VOL " SE 
"Sr THNPUT ¥OL 

PRINT" SBBRBBRTTACK,DECAY ¢8-255> "AD ” il 
";:INPUT AD 

PRINT" SBBBUSTAIN-RELEASE (8-255) "SR "il 
"3: INPUT SR 

PRINT" SRRRRBPULSE WIDTH ¢@-48359) “ru” 


"32 INPUT Phi 

F=FCC ASCC LEFTS( NC#,1>>-6539+¢ LENC NCS3-19% 
F2*e2TOCt+OC 

HF =INTC F258? ?LF=F -HF *256:HP= 
:LP=PiLI-HP *256 


INTC PW/255 2 


IF WeS="T" 
IF WF S="5" 
IF WES="P" 
IF WRS="N" 
LIF =4 

REM **#44CL 
FOR J 
REM *k4##3E 


POKE SIp+24, 


+1 -HF 
POKE SIfh¢+¥v¥+ 
EF WiQTH 


THEN WF=4:GOTO 
THEN WF=5:G0TO 
THEN WF=6:GOTO 
THEN WF=7: GOTO 


FAR SIDKHEEE 


TURP SIDXK44a4 


2,LP:POKE SIDt‘ 


VOLIPOKE SIDt¥ 


430 
4356 
438 
4359 


war 


+2 
a 


=SID TO SI1D+#8:POKEJ,@:NEAXT 


:POKE SID+t¥ 


,HP REM PULS 


POKE SIDtV+5,AD!:POKE SID+¥+t6,5R 
Co) =NCS+RIGHTS( STREX OC), 12>: NN 


Mé¢ YC MMR ¥ 
Ro VC 


REM keke eD01 


P=NNRC YO +1 


SPLAY * * * kx 
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See PRINT" JRE DIA YEFORM VOLUME FRE 

RUENCY" 
578 PRINT" Spy" : WS; " "S¥OLF " 

"EF 

520 REM ****e*ENABLE YOICEx**** 
5399 POKE SID+V+4,2¢WF+GB 
6Ho9 REM *x*x*kF OI TING #x#&% 
19 GET K#:1F K#="" THEN 619 
620 IF K#="()" THEN F=F+1:GOSUB 7O8a:GOTO 6ia 
39 IF K#="" THEN F=F-1:GOSUB 7@8:GoTO sia 
64a IF K#="LJ" THEN GOSUB S8a@:GoTO 616 
659 IF K$="V" THEN GOSUB 82@:GOTO 619 
66a IF K#=CHR#( 12> THEN GOSUB 7S8:GoTO 68a 
B7O GOTO 6149 
St=19) RETURN:IREM ****END CREATE ROUTINE *4«*%* 
This routine uses the formula in line 41 @ to calculate the frequency, given 
the note and octave. This makes it much easier to translate sheet music 
if this is desired. In any case, it is more common to think of music interms 
of notes than in terms of frequency. Line 49@ deals with pulse width. This 
is in relation to the variable pulse waveform. The pulse width value sets 
the proportion of the pulse which is high. (You should note that a @ or 
100% value will result in no sound at all.) 


As well as being stored in the database, the note and octave are stored 
in an array so that the sound can be more easily edited at a later date 
(line 540). However, we also allow some finetuning now. This is done by 
displaying values which can be changed and playing the note as it 
currently sounds (lines 480-590). Editing is allowed for in lines 690-6790. 
Frequency can be changed by using the cursor up and down keys. 
Waveform and volume are cycled by the “w” and “v” keys respectively. 
This is implemented in the subroutines below. 


690 REM #**k*CHANGE FREG & FRE@ DISPLAY 
798 IF F¢@ THEN F=8:GoTO 74a 

71Q =  HF=INTC F/256)!LF=F-HF *256 

720 POKE SID+t¥,LF:POKE SID+V+1,HF 

720 PRINT"O":TABC2207Fe "mM" 

748 RETURN 

218 REM *xk*eeCVCLE VOLUME x44 4 

see IF VOL=15 THEN VOL=-1 

a2a VOL=VOL+l 

849 PRINT"O"TABC 16>7VOL7 "HB" 

esa POKE S1D+24,VOL 

866 RETURNIREM *****END CYCLE VOLUME 44444 
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e7a REM **x4e4eCYCLE WAVE #*#*** 
228 IF WR=7 THEN WF=s 

e208 WF =WF +1 

989 POKE SID+t¥+4,2tTWF+GB 

918 PRINT"O" TABS 5 >? At WF -4 > 

429 RETURM:IREM #**44*END CYCLE WAVE % 4k & & 


The fine tuning is finished, the “return” key should be pressed. The 
desired duration is prompted for, and the information is stored in the 
database (lines 750-809). 


7oAa REM *4e*k*SAVE NOTE DATA**44#* 

76S POKE S1D+V¥+4,08:REM DISABLE SOUND 

7ra PRINT" HBIOELAY <@-2553 "DOL." Se": : 
INPUT OL 

7sa POKE Ec VC>?,VOLIPOKE E¢vC)+1 ,LFIPOKE EC ¥C 
24+2,HF!IPOKE E¢ ¥O3+3,2TWF +GB 

7aa POKE FCVC?4+4,DL:E¢ VC) =EC VOO+5 

898 RETURN:REM ***END SAYE NOTE DATA + * 


Obviously, mistakes will be made when creating the database. We allow 
for this by offering an editing option. A choice of voice is offered, and all 
the notes currently in that voice data block are displayed. The note to be 
edited is prompted for, and the database values for that note become 
the defaults in the note-create routine which follows. You should note 
that, when editing, the routine uses the current value of those items 
which are not stored in the database. For example, the current setting 
for pulse width is used, not the setting that was in force when the 
database data was created. 


Since it is quite possible to get into editing mode by mistake, or merely to 
see what notes have been written to date, we allow an escape at the time 
of the note number prompt. Replying with a negative value will return us 
to the menu without any further ado. 


The code for editing is: 


9328) REM **eeeE DIT NOTE ##*4* 
948 PRINT" eemeeVvOTCE"? : INFUT YoOrvec VC-1>4*¢r 


ane FOR Kk=8 TO 4 

A684 FOR J=@ TO 19° D#=Ns< VC ,2eOaK+I95IF 2OeK +I 
=NMNR¢ VYC> THEN J=19:K=4:GOTO 33886 

a7a PRINT TABS INTC S PAK +I “202 #797 204aK4+IS 7" " 
7D 


988 NEMT J: PRINT " Sie" :NWEST K 
338 PR ITT ” <oeieisieietereceis UL 


MOTE #" 


FtINPUT EN 

IF EM<® THEN GOTO 1119 

REM SAVE DATAPTRS 

SE=E¢ YC} IEC VOD =Ve VC>+EN*5! SN=NNRC YC ENNR 
¢V¥C>=EN 

REM GET DEFAULT VALUES 

VOL=PEEKS Et VO?) !F =PEEKC EC VC2+194PEEKCECY 
C3+2)4256 

T2=PEEK<( Et VC) +3)/32 !GR=T2432- INTC T2) 432: 
OL=PEEKSC Et VO3 +4) 

IF INTC T22=4 THEM Te=3 

IF GR31 THEN GB=GB-16 

WE#=Lie¢ INT? T2 23 

Ti =hEEC VIC FNM VCD? 

NC=VAL¢ RIGHTS T1$,12):NC#=LEFTS T1#,LENC 
Ti#)-1? 

PRINT "\":GOSUB 330 

REM RESTORE DATAPTRS 

EC ¥C2=SE!NNR( VC)=SN 

RETURN 


Once we have our database the way we want it, we need to be able to 
save it. The following routine uses MSAVE, which was introduced 
earlier. As you will see shortly, MSAVE will be resident in the machine 


while this database creation program is operating. 


1128 
1139 
{i144 
1156 
1166 
1178 
1158 


REM xk*xe4SAVE TO DEVICE #*#*44 
INPUT "“,JSSBNOICE (1,2,32"7EN 
VA=VC END PEV=EC END +1 

INPUT "HABE VICE ¢ i1/8>"7DV 
INPUT "BEB ILENAME": FI 

SYS 5S1I37 FIt,VA,EV,DV 

RETURN 


Of course, if we're able to save music data, we need to be able to load it 


back in again. 

130 REM *#4e4eLOAD FROM DEVICE ex*4% 
1200 INPUT "CIRBBIVVOICE (1,2,3>"7EN 
2108 VA=VCEN? 
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INPUT "“BBMDEVICE <1/323";O¥V 
INPUT "ZBBF ILENAME"- FIs 
SYS 53206 FI#,V¥A,DV 

RETURN 


Finally, we need to be able to play what we've put into the database. For 
this, we are going to use an interrupt driven machine code routine 
controlled through our raster interrupt scheduler (RISC). All the BASIC 
code we need is that necessary to set up pointers and addresses and 
initialise the raster interrupt scheduler and sound routine. 


1268 
127a 
1238 
13408 
1218 
{32a 


1465 
1414 


1415 


1429 
1420 
1449 
14608 


REM *4*e4eePLAY RKEEX 

INPUT’ eBINVOICES "-;VC# 

IF vVC#="ALL" THEN VC#="1e3" 

FOR J=1 TO LEN( ¥VC#3?xX=VALC MIDS VC#,J,1>> 
IF #>@ AND #<4 THEN ¥YC=X!GOSUB 1438 

NMEHT J 

POKE 56233,127:REM DISABLE INTERRUFTS 
REM *x**k*k*kREDIRECT INTERRUPTS TO RISCKK*K* 
* 

POKE7S8,@:POKE7S9,192:REM IR@ VECTOR 
POKE5226S8 ,250:PCKE5S3265,PEEK‘ S3265-AND 1 
2@7:REM RASTER COMP REGS 
POKE5S63232,1283:POKE5S3274,129:REM **INTERR 
UPTS ENABLED*+# 

M=PEEKS INPLAY > 

IF &<>@ THEN GOTO 1239:REM WAIT FOR SOUN 
D TO FINISH 

POKES6233,127 
POKE757,98:POKE758,1@8@:POKE7TS3,102:FOR FE 
=O8TO2:POKETS4+K ,O: NEA 

POKE562323,1293:REM ENABLE KEYBOARD SCAN R 
OUT TNE 

RETURN 

REM *4* SET UP INPLAY VALUE #4% 44 

POKE INPLAY,PEEKY INPLAY? OR 2t¢ ¥C-1) 
RETURN 


This routine allows us to play any combination of voices. We can choose 
to play all by responding “ALL” or “123” to the “voices” prompt. The 
routine will play any allowable voice whose number it finds in the 
response. As is usual for a BASIC “input” statement, a comma or return 
terminates what the 64 sees as a single response. 
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Now we need to fill in the missing routines we have used in the BASIC 
program. The only one not written is the music routine, so here it is. 


KEeeEKE* SOUND KHEHKHKHEEEK 


OS 

-PA SCOTS 
?INPLAY IS FLAG INDICATING YOICES IN PLAY 
INPLAY mE FSS 
FDATARLO IS START OF LOEBYTE DATAPTRS 
DATRLO -DE 734 
DATALO1! .DE 754 
CATRLOES -DE 735 
CATALOS .DE 7565 
?DATAHI IS START OF HIBYTE DATAPTRS 
DATARHI sBE YS 
DATRHI1 DE TOY 
DATAHI2 sDE VSS 
DATAHIS -DE 753 
;DELAY IS START OF DELAY BLOCK 760-762 
DELAY -O& 768 
?MASKS FOR UPDATING INPLAY FLAG 
MASKS .DE 6&3 
?S10 IS START OF SOUND REGISTERS 
SID -DE S4272 
VOLUME .DE 54295 
?7NDATA IS Z-PAGE STORAGE FOR DATA PTRS. 
2Z0ATA .<DE 251 
START LOA INPLAY 


sVOICEC S$) ENABLED 7? 
BME PLAYING 
7NWO YOICEC S> ENABLED-EXIT 


RTS 
?.K INDICATES VOICE IN FOLLOWING LOOP 
PLAYING LDH #6 
?7CHECK VOICEC HR) BIT 
LOOP LSR A 
;SAVE SHIFTED INPLAY 
PHA 


IF VOICE* X> NOT ON DO NEXT VOICE 
BCC NEXTYOICE 
7;GET VOICEC HX? DELAY 
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LDA DELAY. 
:1F NOT 9-GO GECREMENT IT 
BNE COUNTDGLIN 
TRANSFER DATAPTRS TO @-PAGE 
LOA DATALO,* 
STA *ZDATA 
LOA DATAHI,* 
STA *ZDATA+I1 
ISAVE M-REG ON STACK 
Tart 
PHA 
?GET GQFFSET INTO SID REG'S 
LDA #4 
:& SET UP Y-REG FOR LATER 
FAFY 
!FACH VOICE IS A FURTHER 7 BYTES INTO SID 
REGCALC CPH #6 
BEQ@ Le 
CLE 
ADC #7 
DEX 
CLC 
RCC REGCALC 
PUT OFFSET IN .# REG 
Le TAS 
LOA (ZDATAD,Y 
7ENO OF VOICE DATA? 
ChIP #$FF 
BNE VOL 
FSET UP MASKS 
LDA #5 7SET UP MASKS 
STA MASKS 
LDA #5 
STA MASKS+1 
LDA #3 
STA MASKS+e2 
GET VOICE # BACK IN .& REGISTER 
PLA 
TAX 
!GET MASK FOR THIS YOICE AND ADJUST INPLAY 
LDA MASKS.A 
AND INPLAY 
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STA INPLAY 
CLC 
-DO NEAT VOICE 
BCC NEATVOICE 
VOL STA VOLUME 
INY 
?SET LOW BYTE OF FREQUENCY 
LOA ¢ Z2DATA?,Y 
STA SID,X 
INY 
INS 
?SET HIGH BYTE OF FREGUENCY 
LDA © 2DATAD,Y 
STA SIO, 
INY 
INS 
IN# 
INR 
?SET WAVEFORM 
LOA ¢ Z2ZDATAD,Y 
STA SID,H# 
?RELOAD A-REG WITH YOICE MR. 
PLA 
TAR 
INY 
?SET DELAY 
LOR ¢ ZDATAD,Y 
STA DELAY,A# 
FUPDATE DATA FPTR 
LDA DATALO,S 
CLE 
ADC #5 
STA DATALSO,# 
7NON'T UPDATE HIGH BYTE 
BCC COUNTDOLIN 
‘UPDATE HIGH BYTE 
INC DATAHI,# 
COUNTDOLIN DEC DELAY, 
7>PT TO NEXT VOICE 
NESTVOTCE INK 
7RESTORE SHIFTED INPLAY 
PLA 
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?:D0NE ALL YOICES ? 


CPH #3 
FNO 

BNE LOOP 
SYES = EXTE 

RTS 

oe 


Converting this to data statements yields the program below. As usual, 
you should type it in as a stand-alone program and save it as 
“SOUND.DAT”. 


1 . REM **x**«* SOUND.DAT *4*£#*##4*e 

149 S$ = 49152:FOR I = $ TG §$ + 135!READ H:C 
= € + KIPOKE I,8:NEAT 

119 IF C ¢ > 18745 THEN PRINT "DATA ERROR!!" 
>END 

ieea DATA 173,241,2,208,1,96,162,0 

134 DATA 74,72,144,117,1989,248,2,205 

146 MATA 109,189,242,2,133,251,189,245 

158 DATA 2,133,252,133,72,169,8,168 

166 DATA 224,0,240,7,24,195,7,20e 

i7a OATA 24,144,245,179,177,251,201,255 

188 DATA 298,29,169,6,141,251,2,169 

1358 DATA 5,141,252,2,169,3,141,253 

eae DATA 2,194,1708,189,251,2,45,241 

219 DATA 2,141,291,2,24,144,59,141 

#26 DATA 24,212,280,177,251,157,0,e1e 

238 DATA 290,232,177,251,157,98,212,208 

249 DATA 232,232,232,177,251,157,0,e12 

258 DATA 104,170,200,177,251,157,248,2 

26a DATA 189,242,2,24,105,5,157,24e 

cro DATA 2,144,3,254,245,2,222,248 

2sea DATA 2,232,104,224,3,208,129,96 


Now we need to convert our machine code data files to files suitable for 
loading using the MLOAD routine. This is done in the following way. 


(1) Load and run MSAVE.DAT 

(2) Load and run RISC.DAT 

(3) Use MSAVE to save the memory block where RISC is stored. 
Remember that RISC is not relocatable, so it might be safer to 
save it using a secondary address of 1. The following line will 
save it properly (to disk) as a file called “RISC.EXE” 
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SYS53137“risc.exe” 491 52,49271,8,1 
The “.exe” suffix is used to indicate that it is an executable file, i.e. it will 
run without anything further being done to it. 


(4) Now load and run SOUND.DAT 
(5) Use MSAVE to save the memory block where the sound 
routine is stored. 


SYS53137‘‘sound.exe”,49152 49287, 8 

Now we have to arrange for MSAVE, RISC.EXE and SOUND.EXE to be in 
memory when the database creation program is run. This is most easily 
done by having a separate program which loads these programs and 
then loads the soundbase program. We'll call this program “SOUND.IN 
|, where the “.in i” indicates that this is an initialisation program. To 
create “SOUND.IN |” load MSAVE.DAT”, add the following lines, and 
save the resulting program as “SOUND.IN |”. 


234 MLODE=S53206 


ess REM *¢**LOAD .EXE FILES+4*#+* 

308 SYS MLODE"RISC.ERE",49152,3,1 

3148 SYS MLODE "SOUND.EXE",43272,8 

134 REM *¢*%* LOAD BASIC PROGRAM «*#* 

S58 POCKFR31,19:POKES32,13:POKE633,82:POKE634 
,117:POKE635,13:POKE198,5 

514 PROG#="SOUNDBASE " 

52a PRINT"L.-" +CHR#< 34> +PROGE+CHRE S45+",5" 


| have saved the database creation program under the name 
“SOUNDBASE”. If you have used a different name change line 510 
accordingly. Also, throughout this book | will be using the disk as the 
main storage device. If you are using the datasette don't forget to 
change device numbers (as you should in lines 300,310 and 520 
above). 


Lines 5QQ to 520 show how the dynamic keyboard buffer of the 64 can 
load and run a program from within another program. Poking the CHR$ 
codes for keystrokes into the keyboard buffer will make the 64 act as 
though it has received those keystrokes from the keyboard. The 
keyboard buffer extends from location 631 to 640. You must also tell the 
64 how many characters are in the keyboard buffer by poking that 
number into location 198. 


Now, to use the SOUNDBASE program, we merely load and run 


“SOUND.IN |”. This will load the necessary machine code and load and 
run the BASIC program. ; 
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Title Music (continued) 


Finally, we get back to the title music. The following data files were 
created using the SOUNDBASE program and another utility to convert 
them from binary to data files. If you want to use them you should type 
each in as a stand-alone program, and then save it as a binary file using 
MSAVE. Alternatively, you may prefer to write your own title music for the 
game, and create the database using soundbase. 


1 REM xe&eeek VLLOAT £2 ee + 

1AaA S=49152:FORI=STQS+1i1@8@:READH:C=C+H:PORETL, 
MI NERT 

114 IFC< S594S8THENPRINT"DATA ERROR! ! ":END 

129 DATA? -25,2,33,200,7,25,2 


136 DATARS ,200,7,25, mae Boseeert 
148 DATAGS ,2,33 ,;200 


is@ DATALHE ,7 25,2, 33 .200,7,25 
154 DATA? , 33 ,200,7,25,2,33 ,206 
17a DNATA? ,25,2, gg 25,2 


128 DATA33 ,29060,7 ,25,2,33,200, 
194 DATALS,2F,33,200, 7, 25,2,33 
PAA OATA2Z9O ,7 ,-25,2,33,2E “7-2 

i 


85 
218 DATAS ,32,200,7,205,2,32, 1800 
eee DATA® ,205,2,33,299,0,295,2 
236 Se 2,3 ,e4@6,7 
248 DATR2ES5S ,2,33,200,255 
1 REM #4*##4% VY2.DAT **¥e eee 
188 S$=49152:FORT=STG@S+17O:READX:C=CtXiPOKET, 
REINERT 


118 IFS< 37 S45 THENPRINT"OATA ERROR! !":END 
126 DATA? ,56,4,33,130,9,59,4 
i384 DATA32,19,7,50,4,33,198,8 
i498 DATASS ,4,33,19,7,509,4,33 
152 PATA1IS9 ,@,50,4,33,19,7,58 
164 DATAS ,23,190,9,50,4,33,19 
17a DATA? -50,4,33,198,0,580,4 
186 NATAS3,18,7,580,4,33,190,0 
194 DATASA ,4 ,323,18,7,50,4,233 
28 NATA1S99 ,9,59,4,33,18,7,58 
a DATA4 ,23,190,8,58,4,33,16 
22A DATAT ,3590 -4,33,190,0,50,4 
Pan NATARZS,108,7,50,4,33,198,9 


ae 


eqn DATASS -4,323,198,7 ,50,4,: 
PSA NATAISO ,48,50,49,33,10,7,508 
26a DATA4,33,1989,8,58,4,33,19 
ere DATA? , 154,35 ,33,136,8,154 .5 
288 DATAS3S, 10,7, 154,535,833, 1390 ,9 
eae cent ,oo,10,7,78,6,33 
SAX DATAL2OA,7,708,6,33,188,7,14 
318 DATA? ,33 50 7’ ,r8,6,33,508 

328 DATAY,139,12,23,200,7,139,12 
238 NATASS ,200,255 


{ REM #ze*#¢4 YVS.DAT #£k#e EK 
1Ae S=49 152! FORI=STOS+t30@0:READKIC=C+KH I FOKEI, 


A IFC< -148351THENPRINT"DATA ERROR! ! "END 
2h BDATASG , 333-34 ,28 i, & pos +S 
3a DATAS3 ,208 ,9,39,3,33,208 ,8 


? 26060 ,135,33,3,33 
58 215,1383,12,33,160,15,196 
6a DATAI6 ,33,260,15,196,16,33,187 
7a nATAIS.20, ee, 15,223,193 

Sa DATASS ,2606 .15,3535,8,33,; 17,15 

an DATATA,6 (98,17, 18,38, BS, i 

Aa DATAIY,15 
a DATAS ,33 


1 2, 1 ,8,23, 
220 DBATAIS,S9,8,23,17,15,78,6 

2320 NATA33,17,15,99,8,33,17,15 

248 DATATA,S,33,17,15,99,8,33 

e5Q@ NAT17,15,78,8,33,17,15,39 

P69 PATAS,22,199,15,139,12,335,1099 
e7A NMATAIS,196,16,33,200,15,1968,18 
229 DATAS2,197,15,228,19,33,13,15 
e989 NATAPA,21,33, 200, 15,99,8,33 
399 DBATAIT,15,78,5,33,17,15,93 

318 DBATAS,39,17,15,78,6,33,17 

320 DBATAI5S,99,8,33,17,15,70,6 

330  #GATASS,i7,19,55;8,53,17,15 

349 DATATS,S,2%2,17,15,99,8,33 

359 DATAI7,15,70,6,33,17,15,939 

369 DATAS,23,17,15,70,6,33,17 

370 DATAIS,939,8,33,198,15,139,12 
389 DATAS3,100,15,196,16,33,200,15 
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fd D bb 


fs da 
~~ mu bw ye © 


8 2 & & 
wo mw 
So»ognueaawsoagansk}f 


QATAIS6,18,33,187,15,29,21,33 
DAT&AI3S,15,52,28,33,209,15,592 
NATA2ZS ,33,13,15,164,31,233,13 
DATAI5,133,33,33,125,15,165,37 
DATASS ,50,15,37,42,33,25,15 
BDATAIS? -44,33,25,15,37,58,33 
NATA125,15,37,42,33,13,15,197 
DATA4S4 ,33,13,15,37,50,33,1688 
NATAIS,101,56,23,50,15,69,62 
NATASS ,50,15,79,84,33,2809,15 


NATATA ,84,323,2008,2e55 


The sound values we hold constant during the music are set as follows: 


i77@ REM ***4S5ETUP CONSTANT itn DATA*&* 

i720 FOR J=54272 TO 5430@:POKEI,@8:NEXT J 

1790 CHIP=54272 

1290 FOR J=8 Ta 14 STEP 7 

1810 POKECHIP+tJ+2,255:PQKECHIPtI+3,3 

1828 POKECHIP+J+5,249:POQKECHIP+J+5,256 

1830 WNEHT J 

Now the database for RISC: 

2220 REM *4**4S TART OATA STATEMENTS *#4#4% 

2325 REM ****RISC DATA = 53195 kkkKke 

2227 DATA 50,1,228,194,8:REM MUSIC 

1858 REM *#444RESET IRG TO RISC:ISET UP RISC & 
SOUND PTRS# tke 

1869 POKE 562323,127:RFEM IR@Q'S OFF 

iS7TO FEM SET UP SOUND DATA PTRS <TITLE> 

1889 POKETST,201:POKETS2,293:POKE7S9,c05tREM 
HI BYTES 

1999 POKETS4,144:POKE755,144:POKE756,144:REM 
if) BYTIES 

{99H POKET5S3,7:REM SET INPLAY FLAG 

{919 REM SET UP RISC PTRS “< TITLE? 

19320 POKE7321,49:PQKE7S2,2234:REM TIMER INT VEC 
TOR 

1930 POKET27,202!POKE 728,207: POKE729 ,203:POKE 
730,2A7:REM DATA PTRS 

194M FOR J=A TO 4:READ D:POKESS195+J,D:NEXT: 


FEM PLACE RISC DATA BLOCKS 
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SQ REM RESET IR@ VECTOR TO RISC 

6H POKE7SS,4:POKE7S9, 132 

970 POKES3265,PFFEK( 53265 ANDI! POKESSESE ,5a 
?-REM RAST COMP REGS 

{98H POKE5S6332,128:POKE53274,129:REM IRQC RAST 
ER) ENABLED 

199M POKES3280,@:POKES32S1,8:REM SCREEN COLOU 
RS 

eana RETURN 


130 GOSUB 1860:REM RISC AND SOUND POINTERS 


Using the Sound Routine 


The soundbase program sets up all the pointers and flags needed to 
use the machine code sound routine. When you use the sound routine in 
other programs you will need to set them up yourself. The following 
explanation may help. 


You need to tell the routine the starting address of the database for each 
of the voices. 


This is done by using the vectors: 


754 : lo-byte of voice 1 data address 
755 : lo-byte of voice 2 data address 
756 : lo-byte of voice 3 data address 
757 : hi-byte of voice 1 data address 
758 : hi-byte of voice 2 data address 
759 : hi-byte of voice 3 data address 


The routine won't do anything until you tell it which voice you want it to 
play. You do this by setting the “inplay” flag bits which correspond to the 
voice numbers. Thus, if you only want voice 1 to play, poke 1, thus 
setting the first bit (bit Q). If you want only voice 3, poke 4, thus setting the 
third bit (bit 2). For combinations of voices, set more than 1 bit. To play all 
voices, poke 7 into the flag. 


The “inplay” flag is location (address) 753. 


You can use the sound routine either via the raster interrupt scheduler, in 
which case it will be executed 59 times a second, or as an independent 
routine via a SYS call. If you want to set up the sound to play a piece of 
music, you should use it in concert with the raster interrupt scheduler. 


Using it as an independent routine is best when you want single sounds 
of indeterminate length. The sound can then be both initiated and ended 
by your program, rather than by the database. 
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CHAPTER 5 


Game Screen 1 


Before presenting the code for this section, we will cover the features to 
be introduced. 


(a) Blanking/Unblanking the Screen 


When using multiple screens in a game or other application, it is often 
necessary to update screens during execution. While it would be better 
to do the update while the old screen is still being displayed this is 
sometimes undesirable. To avoid displaying the screen during the 
set-up, which can be unsightly, we can blank the screen. This is not the 
same as Clearing the screen, which removes all information from screen 
memory. Blanking merely stops the information in screen memory from 
being displayed. It has the added advantage of speeding up 
processing slightly, since no time is wasted in updating the display. 


Screen blanking is controlled by bit 4 of location 53265 (v+17). When 
this it is set (1) the screen display is enabled. When the bit is clered (9), 
the screen is not displayed. This can be done as below: 


Display off: 
POKE 53265,PEEK(53265) AND 239 


Display on: 
POKE 53265,PEEK(53265) OR 16 


(b) Video Bank Change 


The concept of video banks has already been introduced. Now we can 
get down to the practical details of changing the bank. 


The first question that must be addressed is, “why change banks at all?” 
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Generally, it is necessary to provide more room for extra screens and/or 
character sets. There isn't a great deal of room in the default video bank 
because so much is taken up by the user BASIC area and the standard 
character set. A word of explanation is necessary here. If you look at a 
memory map of the 64 you will see that the character sets are located 
from 53248 — 57343. The default video bank is from @ to 16383 
inclusive. It therefore seems impossible that the standard character sets 
are both in the standard video bank and at 53248 — 57343. The 
explanation is that to the processor the standard character sets are at 
53248 — 57343, while to the video chip they “live” in the second 4K 
block of video banks @ and 2. 


To change the video bank you must first set bits @ and 1 of Data Direction 
Register A (DDR A) to outputs. This is done by setting those bits to 1. 
DDR A is located at 56578. 


Now the memory location controlling bank selection can be changed by 
setting bits @ and 1 of location 56576 according to the table below. 


Table of Video Bank Locations 


Bank Address Range 


Q— 16383 
16384 — 32767 


32768 — 49151 
49152 — 65535 


€.g. changing to video bank 3 

POKE 56578,PEEK(56578)OR 3 :REM SET BITS @, 1 OFDDRATO 
OUTPUTS 

POKE 56576,(PEEK(56576) AND 252) OR @:REM VIDEO BANK 
CHANGE 


(c) Changing Screen Memory 


As well as changing the video bank that the video chip “sees”, itis also 
possible to change both the screen it displays, and the character set 
from which it gets its character information. The video chip locates both 
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of these by using pointers to their start address. By changing the values 
in these pointers, one can direct the chip to use different areas of 
memory for screen and/or character information. 


The pointer to screen memory is the top 4 bits of location 53272. It 
indicates to the video chip the number of 1K blocks (1024 bytes) from 
the start of the current video bank to the start of the screen. For example, 
the standard screen memory is located at 1924 to 2024 in video bank Q. 
Thus, it is 1K from the start of the bank (Q). Its pointer should therefore 
indicate 1, i.e. its low bit should be set. Byte 53272 looks like: 


QQO1 xxxx 


The value of byte 53272 is therefore 16+xxxx. 


To change the screen pointer without disturbing the other bits use: 
POKE 53272,(PEEK(53272) AND 15) OR screen-pointer 
where “screen-pointer” is the new screen pointer value. 


€.g. to set the screen to standard: 
POKE 53272,(PEEK(53272) AND 15)OR16 


(d) Screen Editor Change 


If you change the screen location as above, you will find that it is 
possible to display characters whose screen code you poke into screen 
memory. However, if you attempt to print characters to this screen, 
nothing visible will happen. This is because the screen editor uses a 
different pointer to the screen. It too must be told where the screen has 
been moved to. The editor uses location 648 as its pointer to the screen. 
This pointer is in terms of 256 byte blocks (pages). Also, since the 
screen editor is part of the operating system’s function, the pointer uses 
absolute addresses rather than the 16K video bank concept. Thatis, the 
pointer value is not relative to the start of the current video bank, it is 
relative to the start of memory. 


e.g. to calculate the pointer value for the standard screen: 
1024/256 = 4 
POKE 648,4 


€.g. to calculate the pointer value for a screen at 29696: 
29696/256 = 116 
POKE 648,116 


51 


(e) Programmable Characters 


As has been mentioned, video banks Q and 2 both contain images of the 
standard character sets (at least as far as the video chip is concerned). 
However, as you will see when we get to the code for this section, we will 
be using video bank 1. It follows that we will have to create our own 
character sets. Once we have defined them, we can change the pointer 
so that the video chip knows where to find them. 


Changing the Character set pointer 


The video chip uses the same address for the character set pointer as it 
does for the screen pointer — byte 53272. The character pointer uses 
bits 1 to 3, and indicates the number of 1K blocks from the start of the 
video bank to the start of the character set. Since it doesn't use bit @ 
however, it can only point to even numbered blocks. It follows from this 
that the character sets must be placed at 2K intervals from the start of 
the video bank. Thus character sets can be at: 


start of video bank 

start of video bank+2048 
start of video bank+4@96 
start of video bank+6144 
etc. 


e.g. to point to a character set 4K from the start of a video bank 
without disturbing the screen pointer: 
POKE 53272,(PEEK(53272) AND 240) OR 4 


High resolution characters 


Characters are defined just as sprites are (except, of course, that they're 
smaller). Characters are 8 pixels wide by 8 pixels high. Each uses 8 
bytes for its definition — one byte for each row of pixels. If you want a 
pixel to be displayed, the corresponding bitis settoa1. Ifa pixel is not to 
be displayed, the corresponding bit is set to a 9. 


As anexample, let’s work through the definition of one of the characters 
we'll be using in the first screen. First we start with an 8x8 grid and fill in 
grid cells to create the desired shape. 
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Character Design Grid 


k 8 >| 

_ Data 
aaae 0 
|} | 28 
EAZAZ 127 

AACA 255 
ZAZLAZAZZAm 254 
BAZZZ ZZ 126 
tt | ee 12 

ei bi bypTtiaid | ) 


Each row of the grid translates to a single number shown at the side of 
the grid. The definition is stored from the top to the bottom row. The data 
file for the character above and the other asteroid characters is as 
follows: 


i REM x#**%%4%x ASTEROIDS.DAT #4 4a ee KK 

1aa S = 2?4792:FOR I = S$ TO S + 31°READ X:2C = 
C + ®2POKE 1,X%!NER 

114 IF C < > 2833 THEN PRINT "DATA ERRORI!": 
END 

129 DATA 4,258 

1329 DATA 9,8, 

144 DATA 8,12 

158 DATA 6,4 


,204,126,12,0 
’ ,,254,198,12,08 
,255 ,255,1265,62,258 ;,6 
738,127 ,254,191,28,8 


(f) Multi-coloured Characters 


High resolution characters are a bit limited in their use of colour. It is only 
possible for them to be displayed in two colours at any one time, the 
character colour for those pixels which are on, and background colour 
for the pixels which are off. With multi-coured characters it is possible to 
have characters using 4 colours at once. There is, however, a trade-off 
in horizontal resolution. Multi-coloured characters are effectively only 4 
“pixels” wide by 8 pixels high. The horizontal “pixels” are actually 2 of 
the high resolution pixels, because it takes 2 bits to indicate which of the 
4 colours each horizontal pair of pixels is. The colour codes and 
corresponding colour registers are: 
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Bit Pair Colour Register Memory Address 
00 Background #9 (screen colour) 53281 
01 Background #1 53282 
10 Background #2 53283 
11 Lower 3 bits of each colour 
colour nybble RAM 


The video chip must be told whether it should be treating character 
definitions as multi-coloured or high resolution. This is done in two ways. 
First, there is a flag which tells the chip that at least some of the 
characters it displays may have to be treated as multicoloured. Having 
warned it to be on its guard, we can then tell it where on the screen 
characters must be displayed as multi-coloured. This is done by setting 
the high bit of colour memory nybbles at those positions where we want 
multi-coloured characters. There are two obvious consequences to 
doing this. It means that we can have mixed single and multi-coloured 
characters on a screen, and that we can use only 8 of the 16 colours 
available — the ones with codes @ to 7. As soon as we try to use a colour 
code greater than 7, the video chip will think that we want a multi- 
coloured character, one of whose colours is given by the bottom 3 bits of 
the colour code. 


Since we use several multi-coloured characters in the first screen, let's 
work through the definition of one of these. 


Multi-colour Character Design Grid 


4 “pixels” 
| 8 bits >| 
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“Borrowing” the ROM Character set 


Generally, when we use custom designed characters, we still want to be 
able to use at least some of the standard alphanumeric characters. But 
is is far too much trouble to actually redefine all of those that we would 
need (programmers are notoriously lazy). So we steal the definitions we 
want from the ROM set. To be more precise, we copy the definitions 
down from ROM to wherever we want to put our character set. Then we 
change the definitions of those characters we don't need. 


Like most of the potential of the 64 however, it’s not quite that simple. We 
can't just copy the characters because the 64 has more than one 
memory block at the character ROM’s address. As far as the processor 
is concerned, it doesn’t need the character set; it leaves that job to the 
video chip. Rather than waste that memory, it puts the code for the I/O 
(input/output) routines over the top of character ROM. However, the 
designers of the 64 realised that we would occasionally need to access 
the character set via the processor, so they allow us to switch out the I/O 
memory and switch in the character definition memory. The only further 
complication is that the I/O routines are needed to service the keyboard 
scan. If we allow a keyboard scan while the I/O routines are switched 
out, odd things may happen. To forestall this, we turn off interrupts so 
that no keyboard scan takes place. Thus the technique for copying 
character definitions is: 


1) turn off interrupts 

2) switch out I/O and switch in character ROM 

3) copy all or part of the character ROM down into RAM 
4) switch out character ROM and switch in I/O 

5) turn on interrupts 


We will be using the character definitions above to help create several 
character sets. These will be saved as binary images using the same 
technique as used to save the executable code for the SOUNDBASE 
program. The character sets can then be loaded at the start of the game 
program. The following code should therefore be typed in as a stand- 
alone program. 


1 REM **x TO CREATE CHARACTER SETS, USE THE 
DNATA FOR ASTEROIOS, EARTH AND MOON 
2 REM ** IN CONJUNCTION WITH THE FOLLOWING 
PROGRAM SEGMENT 
18 REM FIRST COPY CHARS FROM ROM 
ea POKE 56334,PEEKS 56334) AND 254:REPM INTER 
RUPTS OFF 
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fo fo 
W PO re 
yo 8 


3 (Q 


fo fo fu ty 
a ee) 
mM 


mn . 
m 


POKE1,PEEK(C1> AND 251:REM SWITCH CHAR SE 

T IN, I/O SUT 

FOR J=@ TO 5ii1:POKE 24576+J,PEEK( 532e48tJ 
2 = NERT 

POKE1,PEEK(1> OR 4:REM SWITCH IN [-Q 

POKE 56334,PEEK(58334) OR 1:REM INTERRUP 

TS ON 

REM POKE IN CUSTOM CHARS 

FOR J=8 TO 31:REM ASTEROIDS 

READ O:POKE 24792+],D 

NEXT J 

FOR J=@8@ TO 119:REM EARTH 

READ O:POKE 248406+J,D!NEXT J 

FOR J=8 TO 47:REM REST OF EARTH AND MOON 

READ D:POKE 259040+J,0:NEXT J 

REM MAKE 3 COPIES OF THE CHAR SET AT INT 

ERVALS OF 2K 

FOR J=28@48 TO 6144 STEP 2648 

FOR K=4 TO Sil 

POKE 24576+J+K,PEEK 24576 +K > 

NEXT K,J 

REM CYCLE THE ASTEROIC CHARS IN THE 3 SE 
TS 

FOR J=2048 TO 6144 STEP 2848 

M=P4792+JI:REM START OF ASTERGIOS IN NEAT 
CHAR SET 

FOR K=8 TO 23 

POKE #+K+8,PEEK( K-2046+K>:NERT K 

FOR K=8 TO 7F 

POKE K+K,PEEK( X-2@24+K > INERT K 

NEXT J 

END 

REM THE DATA SHOULD BE ATTACHED HERE 


PEt kx*kkk*e EARTH.DAT **** 44% 

S = 24846:FOR 1 = S$ TO S$ + 119:READ &®:C 
= C + KIPOKE 1,8: NERT 

IF € ¢ > 17649 THEN PRINT "DATA ERROR! !" 
:END 

DATA 6,8,0,0,8,0,15,127 

DATA 0,0,06,0,0,255,255,255 
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14a DATA @,0,8,0,8,0,290,254 

15a DATA 1,7,31,63,127,255,255,255 

i6@ DATA 255,255,127 ,95,87,85,85,85 

17a DATA 255,255,255,255,245,35,85,85 
12a DATA 255,253,253 ,245,213,85,85,85 
1396 DATA 128,224,2498,252,254,255,255,255 
eae DATA 7,15,31,31,62,63,127,127 


218 DATA 85,37,95,126,254,255,395,37 

fea DATA $5,85,213,245,189,173,252,245 

220 DATA $5,85,35,127,127,127,549,95 

24a DATA 117,253,255,2598,234,171,175,255 
258 DATA 213,247,255,175,193,181,245,253 
esa DATA 224,240,248 ,242,252,252,254,254 

1 REM %****REST OF EARTH AND MOONK*** 

i@a = P504dO:FOR I = §$ TO S + 47:READ A:C = 


11a Fc < >} 48990 THEN PRINT "DATA ERROR! !": 


o 

C + XEPOKE I1,X%!:NEXT 
I 

r 

{2n DATA @, 

138 DATA @ 
14a DATA 


r 7,128,152 

QO, 7.221 , 63,83 , 127 ¢ ter; itt 

159 DATA 9,224,248,252,252,254,2549,254 
i6@ DATA 1 e127 «127 ,63,8S,31,7 ,6 

179 DATA 254,254,254,252 ,252 ,248,224,8 


After the character sets have been created, they can be saved using 
MSAVE. We use the suffix “.bin” to indicate that the files are non- 
executable binary files. 


1 REM ** TO SAVE THE CHARACTER SETS TO DIS 
Cc, FIRST LOAD AND RUN MSAVE 

= REM ** THEN LOAD AND RUN THIS PROGRAM 

14 SYS5S3137 "CHARI.BIN",24576,25688,38 

26 SYSSRZ1L37 "CHARZ.BIN",266249,27136,3 

28 SYS5S3S137 "CHARS.BIN" -28672 ,29124,8 

46 REM ** IF SAVING TO TAPE, REPLACE THE "S&S 
" IN THE LINES ABOVE 

38 REM ** WITH A "1" 


The data for screen 1 sprites is: 
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1 REP #e**xe*4exSPRITESI.DAT *£4#ekKeH* 

18H S = 27136°FOR I = $ TO S + 127:READ &®:C 
= € + X=IPOKE I|,x#!°NEX 

116 IF C ¢ 3} 3306 THEN PRINT "DATA ERROR! !": 
ENO 


148 DATA 126,784.23 .:25995,.192,3s255,132 

156 DATA ih a, @,125,0,0,126 

160 DATA 8,8,255,0,3, nig 132,31 

17a DATA 255,248 ,63, 255,252 ,63 ,255 ,252 
128 DATR 1,255,128,0,153,0, 1,195 

138 DATA 1268,3,231,192,3,231,i1392,8 
eae DATA 3,231,192,3,231 ,192,3,291 


R14 DATA 192,1;1952129,.1,195,128 ,1 
22a DATA 195,129,1,;,195,128;,0,129;,8 
230 DATA @,129,0,6,129,908, Ay 123 


“40 DATA 9,60,129,0,0,129,8,@8 
258 DATA 8,0,9,9,0,9,0,08 
-60 DATA @,8,0,0,08,0,0,0 
27a DATA 6,8,08,89,89,9,9,8 


Save this as “Sprites 1” bin” using MSAVE. 


This is a suitable time to start creating the program which will load the 
necessary binary files, and load and run the main program. Load a copy 
of MSAVE and add the following lines. 


238 MLODE=S53286 
ead REP ***4NObl LOAD MC ROUTINES, CHAR SETS, 
SCREEWM & COLOUR DATAK£&* 


Ban SYS MLODE"RISC.EXE",49152,8,1 
418 SYS MLODE "SOUND .ExXE",4383e2,s 
42e8 SYS MLODE"V1 DAT” ,3168H,8 

4268 SYS MLODE"V2.DAT",52112,3 

449 SYS MLODE*¥V3.DAT* ,S26e 


qa8 SYS MLODE"SPRITES1.BIN",271365-65 


See REM *##* LOAD BASIC PROGRAM +*«%#+ 

638 POKES31,13:POKES32,13:POKE633,32:POKE634 
ell? 

644 POKELS98,5 

B58 PROG#="GAME" 

Bea PRINT" WL. "+CHR#*< 343 +PROGS+CHR#t 349+" ,8% 
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Now the code for setting up screen 1 


{7 GOSUB 222°0:REM SCREEN! SETUP 
iss GOSUB 334@:RISC DATA BLOCKS 
18a GOSUB 24298:REM SCREENI SWITCH 


e488 REM £EKSHHEEKKEREREEEEEEEEEE 
2259 POKES48,ED:PRINT"W":REM CLEARSCREEN 
26h POKES TSS, ,LOTA:POKE?727 ,HDTA:POKETS3S ,LSCREE 
NiPOKET329 ,HSCREEN 

PP7A POKE2,1:37Y8S493488:PCKE2,8:REM SET UP SCRE 
FN CHARACTERS 

eree POKE742 , COTA: POKE749,CHDTA: POKETS&8 ,CSCRE 
ENLOMI:POKETSL,CiSCRNHI 

Pease SYSqd95a3:REM SET UP COLOUR 

388 RETURN 

210 REM #«44e4e5E7T UP ALT SCREEN 1l4ee ko 

e228 POKES32585,PREEK( 53265? AND 239:REM BLANK 

SCREEN 


22328 MC=18@:DS=58:SCAWR=8:SHIPS=s 
2249 GOSUR 2S20@:REM DELAYS-ALTCHAR,SCROLL: SET 


UP PTRS 
P2509 GOSUR FE5A:REM CLEAR,CHAR,COLOUR SCREEN 
P2688 PRINT"st": LEPTS*< ¥$,2327 TABS 199; 5CAWR: 
TABL BA2F SHIPS 
2388 RETURN 
eseea REM £KKEXEERER EELS ERK EK EKEKEE REESE 
P4990 REM SLIITCH TO ALT SCREEN 1 


P4eH POKE SS657S,PEEK¢ 5657S? OR S:REM OCR A 
P4230 POKEVY+21,8:REM DISABLE SPRITES 
2449 POKE S657S8,CPEEKC SSh76> AND 252> OR &: 


REM VIDOEG BANK CHANGE 

C45Q@ POKESSSSS,¢PEEK( 53265) AND 2403>:REM 24 R 
Ol, Y-SCROLL REG=8 

2468 POKE 53272,152:REM SCREEN-CHAR SET 

P4708 POKE 642,196:REM SCREEN EDITOR 

P4988 POKES3281,9:POKE53282,6:POKES3283,39:REM 
COLOURS FOR MULTICOLOSUR 

P49 POKFSR278,PEEKC 53270? OR 16:REM MULTICOL 


OUR 
PS5AH SY=17H:SH=168:REM INITIAL SPRITE POSITIO 
MS 
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POKEY+21,1:°:POKEV,SxX:FPOKEV+1i,SY:REM SPRIT 

Ea 

POKEV+2 ,3% 

M=PEEKSL 532 

LLISTQN REG 

POKES5S6333,127:REM INTERRUPTS OFF 

POKES532685,PEEK* 53265 0)AND127:POKES3266,22 
PREM RAST COMP REGS 

POKET27 283: POKE7T28,207:POKE72Z9,298:POKE 

730,287 :REM DATA PTRS 

POKE56333,128:POKES3274,123:REM: RASTER I 

NTERRUPTS ENABLED 

POKES53265,PEEK{ 53265 90R 1i6:REM UNBLANK 5S 

CREEN 

RETURN 

REM *4%44*#4e5ET UP SCROLL VALUES#*#4&£4% 

POKERYS,72:POKES86,103:POKE681,32:POKE6S3 

2,21:POKESSS,39 

POKE634 ,05:POKE685 ,05 

POKFG6E8&6 .72:POKEGS87,2135:PORE6S2 ,4:POKE6SS 

7-3? POKE6S96 ,35 

REM ****DEF INE VALUES FOR SCREEN,COLOUR 

SETUP eAkEE KKK KA 

FO=1A@:LOTA=248:HDTA=132:LECREEN=255-HSC 


3,SY+t217REM SPRITE I 
iM CLEAR SPRITE-B'GRND CO 


4 
COTA=128:CHRTA=194:CSCREENLOW=8:C1iSCRMHI 
=F 16 
RETURN 
REM *#*#*4FREAD IN RISC DATA BLOCK 
FOR J=8 TO 14:REACD B:POKE 332 
:REM SCREENI IRG@ ROUTINES 
FOR J=8@ TQ 25: READ D:POKE 33215+J,0: NER 
!REM SCREENS IRG ROUTINES 
RETURN 
POKE7S8 ,@:POKE7S89,192 


POKE731,49!:POKE732 ,234:REM TIMER INT 
VECTOR 


oo 
Ps 
or, , 
0 
ff 
a 
sal 


This code refers to several machine code routines that we don't yet 


have. 

Now that we have introduced scrolling we can provide you with the 
machine code routines that do the scrolling and screen set up. Each 
machine is preceded by an equivalent BASIC routine that demonstrates 
what is being done in the machine code version. 
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We need something to scroll the screen down a full character when the | 
smooth scroll has gone as far as it can. The following routine does that. 


1A REM *** SCROLL DOWN *e4% 

20 IF ¥<>7 THEN 7a 

329 Y=0:POKE532685 ,¢ PEEK< 52265 2.ANDeda> 

49 SCREEN=25539 

Ta) FOR A=SCREEN+92@ TO SCREEN+41 STEF -1 

ea POKE A,PEEKS 4-483:NEHT A:RETURN 

7a Y=Y+t1!IPOKE 52265,¢ PEEKS 532652ANDE40>+y: 
RETURN . 


lf you run this program with a screenful of normal text, you will see that 
you also need acolour scroll. This uses much the same code as above: 


18 REM #¢#* COLOUR SCROLL DOWN s##*% 

ea IF ‘¥<>@ THEN 7€ 

38 COLOUR=S552935 

428 FOR M=COLOUR+S2@ TO COLOUR+¢41 STEP -1 
5a POKE A,PEEKC A-48)>:NEXT A: RETURN 

a RE TUR 

78 RETURN 


Such a scroll is obviously far too slow to be of any real use, SO we supply 
a machine code routine to scroll down. This will be interrupt driven and is 
designed to be used through our raster interrupt scheduler. The 
assembly code is as follows: 


;*#*¥eeee* FSCROLLON 4H eK KEKE 

YSCROLLREG .DE 33265 

;ROTTOMLEFT CONTAINS ADRRESS OF BOTTOM LEFT 
7NF SCROLL WINDOL 

ROTTOMLEFT .DE Sra 

?FILL IS CHAR CODE FOR SCROLLING ONTO Tor LINE 


F ILL -DE §&31 

?>LNUM IS HEIGHT. -1)3 OF SCROLL WINDOW 
| -DE 682 

>CNUM IS WIDTHS -1)> OF SCROLL WINDOW 
CNUM -OF 6823 

;BASE IS START OF LINE SCROLLED TO 
BASE .JE 251 

*BASE1 IS START OF LINE SCROLLED FROM 
BASE 1 sDE 253 
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?DELAY IS TIME BETWEEN PIXEL SCROLLS 


DELAY -DE 684 
FZDELAY IS WORKING STORAGE FOR DELAY 
ZDELAT -DE 685 


3;CFLAG IS FLAG TO SIGNAL COLOUR SCROLL 
CFLAG LE £ 

LDA #8 

STA *CFLAG 


‘" 


DEC ZDELAY 
BEG SMOOTHDON 
RTS 
FRESET DELAY RETWEEN SCROLLS 
SMOOTHDON LOA DELAY 
STA 20ELAY 
#00 SMOOTH SCROLLING-PIXEL BY PIAEL 
LBA YSCROLLREG 
AND #F 
CMP #Y 
BEG COARSE 
INC YSCROLLREG 
RTS 
COARSE LOR YSCROLLREG 
AND #248 
STA YSCROLLREG 
?7SET COARSE SCROLL FLAG 
LDA #1 
STA CFLAG 
SCROLLDN LOA LNUM 
TRANSFER START ADDRESSES TO 2-PAGE 
LOA BOTTOMLEFT+1 
STA *BASE+1 
STA *BASE1+1 
LOA BOTTOMLEFT 


STA «BASE 
;CALCULATE BASE! ADDRESS IE ¢ BASE-4@)> 
SEC 
SCROLLON@® SBC #49 
STA *BASE1 
BCS SCROLLONI 
NEC *BASE1+1 
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SCROLLONt LOY CNUM 
— A CHARACTER 
SCROLLONe LOA ¢BASE1?,Y 
STA “BASE?,Y 
i ag 
?>NOT FINISHED LINE 
BPL SCROLLONEe 
?FINISHED LINE - UPDATE COUNT 
DES 
?ALL LINES FINISHED 
BEQ SCROCLLONS 
=NQ, THEN UPDATE LINE ADDRESSES 
LOA *BASE1+1 
STA *BREE+1 
LDA *BASEL 
STA *BASE 
SEC 
?GQ CALCULATE NEW BASE1 ADDRESS 
BCS SCROLLONG 
FFILL TOP LINE WITH FILL CHAR 
SCROLLON3S LOA FILL 
LOY CNUM 
SCROLLONG STA ¢ BASE1;>,Y 
BEY 
BPL SCROLLON4 
RTS 
»EN 


This converts to the following data file. As usual, type this in as a | 
stand-alone program, and save it as an executable file with MSAVE. 


1 REM #****%%4e4 FPSCROLLON.DAT *«#4#£*4*%%% 

16a S$ = 49274:FOR I = &§ TQ S + 19M:READ #H:C 
= CC + RIPOKE 1,%!:NES 

119 IF CC ¢ > 13705 THEN PRINT "DATA ERROR!!!" 
>E NO 

lea DATA 169,08,13223,2,206,172,2,248 

1348 DATA 1,56, 173, (72,2; 141, 173;e 

144 DATA 173,17,208,41,7,201,7,248 

1584 DATA 4,238,17,208,96,173,1/7,2093 

164 MATA 41,248,141,17,288,169,1,1323 

178 DATA 2,174,170,2,173,169,2,133 


63 


isa DATA 252,133,254 ,173-167,2 

136 DATA 55,233 ,40,133,253,176,2,198 
PAD DATA €54,172,7171,2,177 ,253;,145,e51 
2if DATA 136,16,2499,202,240,11,165,254 
22a DATA 133,252,165 ,253,133,251,56,i76 
2239 DATA 224,173,189,2,172,171,2,145 
24a HATA: 253,156 ,16,251,96 


FREX** CSCROLLDN H&K KKH HRHKK 
-03S 
»-BA 49271 
YSCROLLREG .DE 33265 
FBOTTOMLEFT CONTAINS ADDRESS OF BOTTOM LEFT 
?OF SCROLL WINDOL 
ROTTOMLEFT .DE 686 
FFILL 15 COLOUR FOR SCROLLING GNTO TOP 
FILL -DE 688 
7LNUM IS HEIGHTS -12 OF SCROLL WINDOW 
L.NUM -DE 689 
FCNUM Is WIDTHC -1> GF SCROLL WINDOW 


CNUM -DE 5340 
?FBASE I85 START OF LINE SCROLLED To 
BASE ~-DE 251 


?BASE1 IS START GF LINE SCROLLED FROM 


— 
FLFLAG SIGNALS A COARSE SCROLL 
CFLAG a BE. 


wa) 


FCHECK IF SMOOTH aoe 
SMOOTHRN LOR *CFLaA 
7 SCROLLFLAG SET? 
CMP #1 
FIF ‘YES-SCROLL COLOUR 
REQ SCROLLON 
FNMO-D0 MOTHING 
RTS 
SCROLLOM Los LMUM 
? TRANSFER START ANORESSES TQ 2-PAGE 
LOA BOTTOMLEFT+1 
STA *BASE?+1 
STA *BASE1+1 
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LDA BOTTOMLEFT 
STA *BASE 
:CALCULATE BASE1 ADDRESS: BASE-4a 
SEC | 
SCROLLDONG SBC #49 | 
STA *BASE1 
BCS SCROLLON1 
DEC *BASE1+1 
SCROLLONI LOY CNUM 
:SCROLL A CHAR 
SCROLLON2 LDA <BASE1?,Y 
STA (BASE)D,Y 
DEY 
INOT FINISHED LINE 
RPL SCROLLDN2 
?FINISHED LINE - UPDATE COUNT 
nex 
PALL LINES FINISHED 
REQ SCROLLONG 
!UPDATE LINE ANDRESSES 
LOA *BASE1+1 
STA *BASE+1 | 
LOA *BASE1 | 
STA *BASE 
SEC 
!GOQ CALCULATE NEW BASE! ADDRESS 
BCS SCROLLONA 
!FILL LINE WITH FILL COLOUR 


SCROLLONS LOA FILL 
LOY CNUM 
SCROLLONG STA (BASE1),7 | 
DEY 
PPL SCROLLON4 | 
RTS | 
.EN | 
1 REM #e4e*4CSCROLLON.DATKAEREEHHH KEK | 
LAA S = 49371:FOR I = 3 Tao S$ + 6S:REAC Hic = | 


C + MSPOKE I,58:NEXT 
{14 IF © ¢ > 9953 THEN PRINT "DATA ERROR! !": | 


128 DATA 165,2,201,1,249,1,96,174 
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iw 
iS) 


DATA 1 

DATA 254,173, ror 
DATA 40,133,253,176,2, 198,254, 172 
DATA 178,2,177,253,145,251,136,16 
DATA 2495,292,299,11,165,259,133,252 
DATA 165,253, 133,251,56,176,224,17S 
DATA 175,2,172,178,2,145,253,136 
DATA 16,231,936 


ie) 


ie 
1 
3 


? 
_ 
r 
“~ 
= 


4 Ul 
i) tS) 


is] 


ee a 
9 0 = 
Ks i?) 


is) 
ie) 


Setting up data for the screen using BASIC is also far too slow, 
particularly when scrolling new data onto the screen. This BASIC 
program will set up the screen and colour memory. 


if FEM ** SCREEN SETUP SUBROUTINE - READING 
FROM DATA STATEMENTS 

en TE =SCREEN 

38 FOR J=8 TO 1 STEP © 

46 READ N,C:1IF O=@ THEN J=1:60CTO 6&8 

59 TE=TE+HtPOKE TE,C 

68 NEXT J 

78 FE TURN 

18 REM *«* COLOUR SETUP SUBROUTINE - READING 
FROM DFTA STATEMENTS 

2a CUL=3S5253 

38 FOR J=@ TO ! STEP 6 

44 READ N,C:rIF N=8 GOTO 7a 

28 FOR K=1 TO N:POKE CUL+K,CINERXT Ki: CUL=UL+ 
N 

68 NEXT J 

Fs J=1:NEAT J 

28 RETURN 


The following machine code uses the same logic to set up the screen. It 
can be used to initially set up screen data and also to scroll new data 
onto the screen. 


PeeeKKEXKE* SCREENSET £8 RERERAE KEE EEK 


2 OS 

»-BA $Cee08 
DATAPTR «BE 736 
SCRNPTR DE 73s 
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SCRNPOS DE 251 

DATAPOS »:DE 253 

?CFLAG SIGNALS COARSE SCROLL 
CFLAGS -DE e 


= 
- 


7CHECK IF A COARSE SCROLL HAS OCCURRED 
LDA *CFLAG 

;I1IF IT HAS - SET UP A SCREEN LINE 
BME SCREENSET 

7IF IT HASN'T - DQ NOTHING 
RTS 

ITRANSFER PTRS 

SCREENSET LDA 
STA 
LDA 
STA 
LOA 
STA 
LDA 


TO Z-PAGE 
DATAPTR 
*DATAPOS 
DATAPTR+1 
*DATAPOS+1 
SCRNPTR 
*SCRNPOS 
SCRAPTR+ 1 
STA *SCRNFOS+1 
LOY #8 
?FGET DISPLACEMENT 
SCREENSET1] LOR <DATAPOS>,Y 
F?CHECK IF @-I1F 


BEQ FINI 
?NWO-CALCULATE NEW SCREEN POSITION 
CLC 
ADC *SCRNPFOS 
STA *SCRNPOS 
BCC SCREENSET2 
INC *SCRNPOS+1 


?UPDATE DATAPOS TQ GET CHAR 


SCREENSET2 INC 
BNE 
INC 
?GET CHAR 
SCREENSETS3 LDA 
FANG PUT tT ON 
STR 


?UPDATE DATAPOS TO 


INC 


YES THEN FINISHED | 
| 
| 
| 
| 
| 


*kDATAPOS 


SCREENSETS 


KDATAPOS+1 


< DATAPOS? ,¥ 


| 
| 
SCREEN 
« SCRNPOS?,Y 

GET NEXT DATA FAIR 

*DATAPOS 


BNE SCREENSET 1 
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PUPDATE AND 
POATARPOS 


FINI 


FINI! 


INC *DATAPOS+1 
RBMNE SCREENSETI 
STORE NEL! 


IN PERMANENT STORAGE 
INC *DATAPOS 
BNE FINI1 
INC *DATAPOS+1 
LDA *DATAPOS 
STA DCATAPTR 
LOA *DATAPOS+1 
STA DATAPTR+t1 
RTS 
-EN 


This translates to the following data. 


REM **** SCREENSET.CAT kkk eKE Es 

S = 48478:FOR I = 8S TQ S + F4:READ XC = 
fC + ®IPOKE I1,8:NER 

IF C ¢ > 12546 THEN PRINT "DATA ERROR!!" 
:END 

DATA 165,2,208,1,96,173,224,2 

DATA 153,292 . 173 ,223;2, 133;E€354,173 

DATA 226,2,133,251,173,227,2,133 

DATA 252,160,90,17 7,233 -249,27,24 

BATA 101,251,,133,251, 144,2,220,¢e52 

DATA 2:30 ,252 ,209 ,2,230,254, 177,253 

DATA 145,25 1,220 -253 -298 ,229 ,236,234 
DATA 299,225 ,239,253,208,2,230,254 

DATA 165,253,191,224,2,165,254,141 

DATA 225,2,3565 

PEP *#e*%#%*%4% SCREENI.DAT #*#4444% 

S = $9654:FOR I = § T0 S + 2@5:READ AC 
= C + ®!:POKE 1,4: NERT 

IF € ¢ > $816 THEN PRINT "BATA ERROR! !": 

END 

DATA 93,23 ,3,29 ,5,28,;14,29 

DATA 28,27 ,3,23 7 -25,5.23 

DATA 4,28, 19 ,29;2 ,235 ,24,38 

DATA 24,36,19,27,52,28 25,39 

GOATA Tf pet 93730 £3 p23 51 fk 


17a DATA 14,29,23,28,32,29,2,29 
18a DATA 36,29,7,;,30,5,27,3,2¢ 

130 DATA 5,29,3,28,5,36,3,28 

ene PATA 53,30,43,27,13,38,255,32 


214 DATA 17,33,1,24,1,35,36,58 
229 DATA 1,36,1 ,47 +1238 +1 +.33 
239 DATA 1,49,1,59,34,41,1,42 
e486 RATA 1,43,1,49,1,45,1,46 
258 DATA 1,47,63,19,1,3,1,15 
26a DATA 1,18,1,5,16,159,1,8 
27A DATA 1,9,1,16,1,13,43,d3£ 
eee DNATA 18,8,1,168,1,169,98,3 
238 DATA 32,3,32,5,32,14,32 ,0 
Sag PATA 5,27,5,28,1@,30,15,23 
318 DATA 9,5,-32,5,32,10,32,15 
37a DATA 32,9,9,0,0,0,0,9,0,8,9,8 
3348 DATA 14,62,1,63,8,14 


ci 

Pe 

34a NATA 6@,1,61,8 

3548 NATA 9.9.8.9 ,.48,.8,48, 
SBA DATA €@,8,0,0,8,0,0 


To use this routine we must first tell it which screen memory to fill and 
where to find the data it will use. The first we do using the vectors: 


738 : lo-byte of screen address 
739 : hi-byte of screen address 


Because of the way the database is set up, use the address before the 
start of screen memory. 


The pointer to the database is: 


736 : lo-byte of data pointer 
737 : hi-byte of data pointer 


The database uses the format: 


number of bytes to move (displacement) 
screen code of character 


This is repeated until the end, whichis signalled by a displacement of 9. 


Since this routine will also be used with the interrupt driven scroll, it has 
been designed so that it can set up a line after every coarse scroll. To do 
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this it first checks the coarse scroll flag, and will only work if this flag is 
set. When using it as an independent routine, we must set the flag before 
using it, and clear it after using it. We use address 2 as the coarse scroll 
flag. 


The following code will set up the colour memory. 


€*k*¥eE*X COLOURSET £xXe KRHA 


.OS 

._BA $Ca08 
SDATAPTR IS COLOUR DATA FTR 
DATAP TR -DE ¥48 


?COLOURPTR PTR START ADDRESS COLOUR MEM 
COLOURPTR .DE 759 

7COLOUR 2-PAGE ADDRESS FOR COLOURPTR 
COLOUR DE 251 

ZOATA Z-PAGE ADDRESS OF DATAPTR 

DATA RE 253 


TRANSFER ADDRESSES TO 2-PAGE 


STA *2£COLOUR+i 
A DATAPTR 

STA #*2DATA ; 
LDR DOATAPTR+1 
STA 4ZDATA+T1 

L.1 Loy #8 

!GET NUMBER OF BYTES OF COLOUR 
LDA < 2DATAD,Y 


PME La 

?TF ® THEN END 
RTS 

L® INY 

:PUT NUMBER OF BYTES INTO #-REG 
TAS 


?GET COLOUR CODE 
LOA ¢<2DATAD, 
LOY #8 

7FILL A BLOCK OF COLOUR MEM 
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STA *< ZCOLOUR?,Y 
INY 

DEX 

PNE Le + 


FUPDATE COLOUR MEM ADDRESS 


?UPDATE DATA PTR 


L3 


7GET NEXT COLOUR BLOCK 


L4 


TYA 

CLC 

ADC *ZCOLOUR 
STA *ZCOLOUR 
BCC L3 

INC *ZCOLOUR?tI 


LOR #2 

CLE 

AoC *2Z20ATA 
STA *Z2DATA 
FCC L4 

INC *#£ZDATAt1 


CLC 
Bcc Li 
»EN 


The data for this is: 


REM «#k** COLOURSET.DAT #£# x *#% 

S$ = 9$9591:FOR I = S$ TQ S + 62:READ #:C = 
C + R:POKE 1,8! NEXT 

IF € ¢ > S789 THEN PRINT "DATA ERROR!!": 
END 

BATA 73,238 2 138 -25) + 1 73 2395 -e 

BATA 133,252 .173 -2365 ,2 , 133,235,173 

DATA 237,2,133,254,168,0,177,253 

DATA 2998,1,96,200,170,177 ,253,168 

DATA @,145,251,200,202,208,250,152 

DATA 24, 161,251, 133,251,149 2,230 

SATA 252,169 -2 24,101,253; 133,233 

DATA 144,2,238,254,24,144,213 


REM #***kk* COLOURI.DAT **k&k* 
S = 49826:FOR I = S$ TQ S + 28:READ #H:FC = 
C + HIPOKE I,4!NEXRT 
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119 IF C < > 1078 THEN PRINT "DATA ERROR!I!": 
END 


12a DATA 255,4,255,4,255,4,13,4 
138 DAIA 32.1283 ¢f <2 «62952 

i144 DATA £2,5,;33;37%,1,6,9,12 

156 DATA 1,6,137,1,0 


As for the routine to set up the characters on the screen, we must tell this 
routine the start address in colour memory, and the address of the data it 
is to use to set up Colour memory. 

The first uses the vectors: 


75Q : lo-byte of colour memory address 
751 +: hi-byte of colour memory address 


The pointer to the database is: 


748 : lo-byte of address of data 
749 : hi-byte of address of data 


The database uses the format: 


number of bytes to be filled 
colour code to fill them with 


This is repeated until the end of the database which is signalled byaQ@ — 
number of bytes to be filled. . 


fe 


CHAPTER 6 


Game Loop 1 


The mainline code for the first game shows the tasks the program 
executes every time around the loop. 


138 REM *****GAME LOOP 1***** 

eae FOR J=8@ TQ 1 STEP 8 

eig GOSUB 580 :REM SWITCH CHAR SETS 

eee GOSUB 69@:REM CHECK JOYSTICK 

236 GOSUB 1360:REM HANDLE SCROLL SPEED 

e4a4 GOSUB 1578 REM SCORE 

258 C=PEEKS 26134>:0=PEEK{ 26174>9:1F C=61 OR D 
=61 THEN J=1:REM GOT TO MOON 

26a GOSUB 85@:REM CHECK COLLISION 

278 HEAT J 

PBa IF SHIPS=0 THEN POKE5S3274,24@:GOTO 178 

238 POKE 53274,248:REM RASTER INTS OFF 

388 REM *****xEND LOOPI-SETUP LOOPE Kee 


Lines 199 to 27@ form a controlled infinite loop. It is infinite because it will 
never, of its own accord, stop. It is controlled because, unlike most 
infinite loops, we know exactly why it won’t stop and can intervene to halt 
it when we want. It would of course be possible to create an infinite loop 
using a “goto” statement. However, that method is slower than the 
method we've used since a “gotto” executes by looking for the given 
line number from the start of the program. If the loop is not very close to 
the head of the program, appreciable time is lost every time the loop is 
executed. A “for next” loop, on the other hand, stores the address of the 
start of the loop and jumps to it whenever it finds a “next”. Thus, we can 
put fast loops anywhere in the program. 
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Character Animation 


The first subroutine handles character animation. In order to add a note 
of reality to a scene, it is desirable to change characters to simulate 
movement. For example, in the first screen, we will animate the asteroids 
by having them appear to tumble. This could be done in two ways. We 
could overwrite each asteroid character with the next in the tumbling 
sequence, but this involves keeping track of the position of each 
character so that they can be rewritten. With more than a few characters 
to be animated this method is impractical. The other method, and the 
one we use, is to change the entire character set. This involves a bit 
more work in the initial stages, in setting up the different character sets. 
However, it only involves changing one pointer during the game and it is 
during the game that one wishes to save time. 


The code to do this is as follows: 


a7r@ REM ***4eALTERNATE CHAR SETS&ee## 

sed IF CNT< ?@ THEN CNT=CNT-1:RETURN 

aA CMT=DC 

Sae IF <PEEKS S3272RAND1I43=12 THEN POKE S3272 
, ide: RETURN 

6148 POKE S327r2,PEEKS S3S2723+2:RETURN 


Joystick Control 


The second task taken care of in the loop is checking the joystick. In this 
screen we will only be moving the sprite left and right. Vertical 
movement of the sprite will be suggested by scrolling the screen down. 
If the joystick indicates “up”, we will turn on the rocket’s exhaust sprite 
and increase the speed of the scroll. If the joystick reads “down”, the 
scroll will be slowed down. Any allowable combination of vertical and 
horizontal readings will produce both the appropriate actions. The code 
for the joystick routine is: 


6a REM a#**x4e70YSTICK CONTROL ROUTINE 1**4#*% 
639 X=PEEK( 563203:I3S=15-(x% AND 15):FB=8 AND 


i6 

789 POKEV+21,1 

718 ON JS GoTo 739,740,720,758,788,7399,720,8 
90,330,849 


% RETURN 

A DS=DS-1:POKEV+21,3:>RETURN 

4 DS=DS+i ls RETURN 

a IF <SXH=@) AND (CPEEKC¥+16> AND 39=0 THEN 
RETURN 
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7608 IF (SM=Q0ANDCC PEEKS ¥+1i6> AND 3S3=33 THEN 
SH=256 *POKEV+16,¢ PEEKC ¥+16 3AND252 > 

77 SH=SH-1IPOKEY,SA?POKEV+2,SH! RETURN 

730 DS=DS-1:POKEV+21,3:GOTO 750 

Tae MS=NS+iz:GaTa 7se 

Baa IF (€S#=255>) AND (CC PEEKC ¥+16>AND3>9=3> 
THEN RETURN 

81a IF (SH=255> AND *PEEKC ¥+16)> AND 39=6THEN 
SX=1°SPOKEV*tiG,€C PEEKC ¥VtiGd GR 3) 

82a SM=SH+1°POKEV, SHI POKEV +2, SX RETURN 

838 DS=OS5-15POKEV+21,3:G0TO saa 

24a OS=NS+i:ecaTa sae 


Changing the Scroll Speed 


Since the scroll routine uses a memory location to find its delay, it is a 
simple matter to change it. We just poke the new value into the delay 
location. We need only be careful of poking values greater than 255 or 
less than @ (since pokes only allow values from @ — 255). A value of @ 
acts as 256 and produces the slowest scroll. 255 is the next fastest, and 
then the speed increases as the delay value decreases. 


The code for this is as follows: 

1250 REM ****4SCROLL SPEED*#4#£#* 

13S IF OS<¢5 THEN DOS=5:REM CHANGE SCROLL SPEE 
n 

1278 IF OS>3255 THEN OS=255 

138 POKESS4,0S 

1298 RETURN 


Updating the Score 


Changing the score is most easily done by overwriting it, as below: 

1560 REM #£**e*45CORE &KEEH 

157A TEMP=( 256-05)4#.801+TEMP 

1528 SCAMIR=INT*S TEMP > 

SaQ PRINT “Ss LEFTS( ¥V$,23)7 TABS 1997 SCAWR 

80 RETURN 

A REM *«***4COLLISION SCREENL##4t4% 

A IF ¢PFEKC 53279 3AND1>=8 THEN RETURN 

879 SHIPS=SHIPS-1 

88a PRINT "S$" -LEPTS#C V$,2327 TABC SA; SHIPS? : FOR 
K=8 TO 1888:NEXT 

aA IF SHIPS=@ THEN J=1 

SAA RETURM 
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Collision Checking 


Since the aim of this section of the game is to dodge the asteroids, we 
must include collision checking to give it any point. It is therefore time to 
introduce the collision registers. 


Collision Registers 


One of the hardest things about writing games used to be collision 
checking. 


Generally, one used to have to check the screen around the main 
object. The Commodore, however, supports some collision checking 
with hardware. It has two collision registers. Both of these are 1 byte 
long. Each bit indicates whether the associated sprite has been 
involved in a collision .. . i.e. bit @ holds information on sprite Q, bit 2 
holds information on sprite 2, etc. 


Sprite/sprite collision register 


This register is found at 53278 (v+3Q). It detects collisions between 
sprites. When two sprites collide their bits are set (1). They remain set 
until the register is read, when they are automatically cleared. For 
example, if sprites 2 and 7 collide, this register will have bits 2 and 7 set, 
and will therefore have the value 132 (assuming no other sprites have 
collided). 


You should note that sprites may collide with each other even when they 
are both off the visible screen. 


Sprites/background collision register 


This register is found at 53279 (v+31). It detects collisions between 
sprites and characters. As for the sprite/sprite register, the relevant bits 
are set by a collision and remain set until the register is read. When a 
character is in multicolour mode, the 2 bit pixels coded with @2 are 
considered to be transparent for collisions. This can be used to display 
characters with which you don't went sprites to collide. 


Collision caused interrupts 


Although we haven't used this facility (as earlier) collisions can be 
another source of interrupts. Even if we don't use them, we could still 
check the IRQ status register (byte 53273) to see if collisons have 
occurred. Alternatively, we could check the collision registers directly. 
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Remember though, that this will clear the register read, so it may be 
necessary to ensure that the value read is stored. 


Scrolling 


Before we discuss these, we need to explain how scrolling is carried out 
by the 64. 


Fine Scrolling 


While the program is looping through the above code, the raster 
interrupt schedular is carrying out various tasks in the background. 


The Commodore 64 can shift the position of the screen by up to 8 pixels 
in any direction. This is carried out by hardware. The programmer need 
only tell the 64 how far to shift it, by putting the appropriate value in the 
fine-scroll register’. There are two of these, one for vertical, and one for 
horizontal scrolling. We will discuss horizontal fine-scrolling in more 
detail when we use a horizontal scroll routine later in the program. 


Vertical fine scrolling 


The 64 uses bits @ to 2 of byte 53265 as the vertical fine-scroll register. If 
the value of these bits is @ then the screen is as high as it can go. If the 
value in the register is 7, then the screen has been shifted as far down as 
itcan go. 


The default value of this register is 3. 


lf you change the register value from @ through to 7, it looks as though 
the screen is being scrolled down 1 pixel at a time (hence the name 
“fine-scroll”). To continue the scroll after you get to 7 however, you must 
use a program to shift all the characters on the screen in the direction of 
the scroll, and then reset the fine-scroll register to @ 


lf the register value is changed from 7 through to Q it looks as though the 
screen is being fine-scrolled up. Again, after the register reaches @, you 
must use a program to actually shift all the characters on the screen one 
row in the direction of the scroll, and reset the fine-scroll register. 


One apparent drawback of fine-scrolling is that as the screen is shifted, 
a blank row becomes obvious at the top, or bottom, of the screen, 
depending on which way the screen is being fine-scrolled. However, 
this can be overcome by using “24 row mode”. 
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24 Row Mode | 


To deal with the blank row uncovered by the fine-scroll, the 64 is able to 
expand the border by 8 pixels, 4 pixels at the top and 4 pixels at the 
bottom of the screen, thus covering the blank row. Of course, this leaves 
you with a 24 row by 40 column screen. 


The blank row is also used to cover new data being scrolled onto the 
screen. If you are scrolling the screen down, when the value of the 
fine-scroll register is @, you may add data to the top row of the screen 
without it being seen. This new data may then be gradually brought into 
view by fine-scrolling. This avoids the sudden appearance of new data 
at the edge of the screen, spoiling the effect of the scroll. 


This also applies when you are scrolling the screen up. The only | 
difference is that you add data to the bottom line of the screen when the 
fines-croll register has a value of 7. 


Coarse Scrolling 


On most machines coarse scrolling is simply referred to as scrolling. We 
need the distinction on the Commodore because of the fine-scrolling 
facility. Coarse scrolling is scrolling the screen an entire character in the 
direction of the scroll. 


The machine language scrolling routine introduced below combines 
both fine-scrolling and coarse scrolling. In this case, fine-scrolling is 
done 1 pixel at a time. This is not mandatory, of course. A faster 
fine-scroll will result if you fine-scroll 2 pixels (or more) at a time. Our 
scrolling routine does. A final point to be noted about scrolling, both fine 
and coarse, is that sprites are not scrolled, only characters are. The 
video chip holds the position of sprites constant and moves the screen 
past them. 


Stopping the fine scroll 


At the bottom of the screen we have information such as the score and 
number of ships left. Fairly obviously, we don’t want this scrolled, either 
finely or coarsely. It’s easy enough not to coarse scroll it, since we 
contro! what part of the screen we scroll. However, it is not quite so easy 
to stop the fine-scroll. After all, when the video chip fine-scrolls, all it 
does is cause the screen to be displayed in a different place. What we 
want it to do is only move part of the screen. This can be done by using a 
raster interrupt and changing the fine-scroll register to a constant value 
before the video chip displays the line of text. Thus, no matter where the 
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rest of the screen is placed, the bottom few lines are always at the same 
place. This is fine in theory, and works very easily when scrolling 
horizontally. It also works when you're scrolling vertically, but not quite 
s0 easily. 


if you're conversant with machine language and intend to use this 
feature in programs of your own, you should be aware of the difficulties. 
Basically they arise because of the way the raster scan works. The raster 
scans sequentially down the screen, line by line. It cannot scan up the 
screen except at the end when it returns to the top of the screen. Nor can 
it skip lines on the way down. As it scans down, the video chip is 
‘simultaneously’ scanning through screen memory to get the 
information to be displayed, and feeding it to the raster beam. Now, to 
stop fine-scrolling the screen at the bottom, we must ensure that the 
fine-scroll register always has the same value at the bottom of the 
screen. Thus, at some raster scan line, we must change the register 
value. To the video chip, this means that the display should be shifted up 
or down, depending on the old value of the fine-scroll register. But, as 
we said above, we can't change the position of the raster scan. So what 
appears to happen when we change the fine-scroll register at the 
bottom of the screen is that the video chip marks its place in screen 
memory, and then carries on as though nothing has changed, until it 
reaches a raster scan line which corresponds to the new value in the 
finescroll register. 


(A scan line corresponds to the finescroll register depending on its 
position in an 8 scan line character row. That is, a register value of 0 
corresponds to any scan line which is the first of a standard text row; a 
value of 7 corresponds to any scan line which is the last of a text row, and 
soon.) 


When the raster reaches the corresponding scan line it ‘realises’ that the 
finescroll register has changed and that it should adjust the position of 
the screen accordingly. The best it can do now though, is to go back in 
screen memory to the position it marked when it should have stopped 
fine-scrolling, and start displaying from that point. This means, however, 
that it displays the same data twice. The number of scan lines repeated 
will depend on the difference between the value of the fine-scroll 
register when fine-scrolling is stopped and the constant value it is 
changed to. The greater the difference the more data will be repeated. 


lf the explanation above is correct (and it is basically an informed guess 
arrived at after a lot of trial and error), then the only way around the 
problem is to make sure that the data that is repeated is blank. This is the 
method we used at any rate. . . putting in an extra blank line before the 
text. 
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Restarting the fine scroll 


Having stopped fine-scrolling part of the screen we also need to restart 
it so that the top part of the screen continues to be scrolled. This is done 
using another raster interrupt after the text lines. This causes the 
fine-scroll register to be changed to the original value (which was stored 
by the routine which stopped the fine-scroll). Because this happens 
during the vertical blank (the period during which the raster scan is off 
the visible screen) no problems are encountered. 


The assembly language listings for these programs appear below. 


Pexk4ekeK STOPFINEDN £484 # Fe 4% 

YSCROLLREG .DE 52265 

?SAVEDY IS CURRENT YSCROLLRESG VALUE SAVED 
SAVEDY .BE 749 


SAVE CURRENT SCROLL VALUE 
LDA YSCROLLREG 
STA SAVEDY 
fAND RETURN SCROLL REG TO STANDARD 
CRA #7 
STA YSCROLLREG 
RTS 
~EN 


} €#*4% RESUMEDN #£*#**4* 
YSCROLLREG .DE 332685 
SAVEDY -DE 746 


LOA SAYEDY 
STA TSCROLLREG 
RTS 

-EN 


These convert to the following data files. As usual, type them in, run 
them, and then use MSAVE to save them as executable files. In the rest 
of the program | refer to these as “RESUMEDN.EXE” and 
“STOPFINEDN.EXE”. 


H PEM +¢k¢4e44 ETOPFINEDN.DAT £8 eee 44 
i@e S = 4S9572:FOR I = §$ TO S$ + L1FREAD ASC = 
® + #:POKE 1,8! NEXT 
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116 IF C ¢<¢ > 1247 THEN PRINT "DATA ERROR!!": 


END 

129 DATA 173,117,298 peeeeceerrne ee 

138 DATA 141,17,298, 

1 REM #k*4% RESUMEDN.DAT £# ee Kx 

{On S=49524:FORI=STOS+S: READSA:C=C+K:POKEI,*: 
NEAT 

119 SSTHENPRIMNT"DATA ERROR! ! "ENO 


IFCC< > 
129 DATAIT3 ,228 ,2,141,17,268,96 
Tasks carried out by RISC 
The first screen uses several raster interrupt driven routines. 


At scan line 224 we just turn off vertical fine scrolling. At scan line 259, 
(as the vertical blank starts), we restore the old fine-scroll register value 
ready to fine-scroll again, and scroll the colour and screen memory. 


Let's put these new routines into the initialisation program for the game. 
Add the following lines to “’GAME.INI”. 


210 SYS MLODE "FSCROLLDN. EXE" ,49272,8 
220 SYS MLODE "CSCROLLON.ERE",43373,38 
338 SYS MLODE "CLEARSCRN. EXE" ,49449,38 
340 SYS MLODE "SCREENSET.EXE" ,49488,3 
358 SYS MLODE "CHANGECHAR.EXE”" ,49555,3 
368 SYS MLODE"STOPF INEDN. ESE" pre kee 
372 S°°S MLODE"RESUMEDN.EXE",43586,8 

288 SYS MLODE "COLOURSET.EXE",43533,3 
338 SYS MLODE"SCREEMI.BIN" ,49656,5 
400 SYS MLODE "COLOUR1I.BIN" ,49862,8 


The data blocks needed by RISC to access these routines are: 


3390 REM #*#*#**RISC DATA AT S3200k ke ek 

2400 DATA #22,1,166,i193:REM SCREEN] SCROLL ET 
: 

2410 DATA 250,4,178,193,126,192,221,192,72,13 
3 

2476 DATA @ 

3H REM **kx*x4RISC DATA AT S5S3215....RIGHT SCR 
OLL kK RAK 
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CHAPTER 7 


Game Screen and Loop 2 


The second screen is an example of more extensive use of sprites. As 
well as using high resolution sprites, we introduce multi-coloured sprites 
in this screen. The table below provides details of all the sprites used. 


Name Colour Block Expand 
ship Q white 168 no 
volcano 1 grey 200 yes 
crater 2 purple 201 no 
erupt 3 yellow 202 yes 
mount 4 grey 205 yes 
platfm 3 multi 206 yes 
volcano 6 brown 207 no 
flare 7 red 169 no 


The data files for the high resolution sprites are: 


1 REM **ee444 VOLCANO.OAT #4 **#*#4 

189 S = 16906:FOR I = 3S TO S + §3:READ #A:C = 
C + XIPOKE I,8%:NER 

116 IF C ¢< > F3S¥8 THEN PRINT "DATA ERROR! !": 
END 


12a DATA €@,0,8,0,127,0,9,127 

138 DATA 0,8,127,8,8,251,8,59 

14@ BATA 251,128 ,86,251 212633 ;,@51 hes 
1568 DATA 1,251,192,1,251,192,3, 123 
isa DATA 2P4,3,121,224,6,121,240,6 


174 DATA 253,246,14,253,216,14,252,216 
15a DATA 34,236 ,226,398,236,294,650,236 
be BATA £239, 125,222,250 ,253,222,259 8 
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REM #**k*kk CRATER.DAT #44444 

S = 16664:FOR I = S$ TO S + 63:READ X:C = 
C + S:POKE I,8!NEXRT 

IF € ¢ > 1765 THEN PRINT "GATA ERROR! !": 


DATA @,08,0,08,0,0,0,8 

DATA 9,0,9,0,9,0,0,98 

PATA 8,4,0,0,0,8,0,6 

DATA 9,69,9,6,08,8,0,8 

DATA 9,0,0,0,0,0,9,0 

DATA 252,0,3,3,98,4,0,128 

DATA 1553,132,15,255, 192,7,255 
DATA 128,1,252,8,08,6,0,8 


REM #*«*kk#*e4e*%e ERUPTL.DAT *¥*#*4#4x4#4e% 

S = 16123:FOR I = §$ TO S + 63:READ HEC = 
C + #:POKE 1,*!:NERT 

IF € ¢ > 1325 THEN PRINT "DATA ERROR!!": 


END 

DATA 6,60,0,0,0,0,0,0 

DATA 6,6,06,08,0,40,69,9 

DATA 0,80,0,6,08,6,0,0 

DATA 8,64,0,0,64,0,0,32 

DATA @,4,32,0,0,8,64,0 

DATA 72,128,8,1606,128,12,42,6 
DATA 7,58,8@,1,188,8,0,60 

DATA 132,8,51,0,08,16,0,9 


REfd #e#%4¢e4e% FRUPTE.DAT €£xee KKK 
S = 15872:FOR I = S$ TO S + G3!IREAD #:C = 


IF € ¢ + 1136 THEN PRINT "DATA ERROR!!": 


END 

DATA @,0,0,0,0,0,08,0 

DATA 9,8,09,6,0,0,8,9 

DATA @,9,8,0,8,0,128,0 
DATA @,122,64,9,1,694,0,97 
DATA @,a 6,249,36,9,0 


ts 


¥ Ff 6&,192,6,51 
DATA 6,9,15,8,0,0,5,6 
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j REM +e44¢444 ERUPTS.DAT 448484 

198 4S = 15926:FOR I = S TG S + S3:READ H!C = 
C + €!:POKE 1,X:NEXT 

119 IF C < > $44 THEN PRINT "DATA ERRGR!!": 
END 


1-4 DATA 9,0,08,8,9,09,8,08 

1308 DATA 9,8,9,9,8,0,0,8 

148 nAaT& 2,8,8,9,8,8,8,8 

1568 DATAa 2,684,0,9,36,09,0,49 
168 NATA €2,8,9,100,6,0,64,64 
i7a DATS @,2,16,5,9,2,35,98 
18a DSTA @,80,8,8,16,8,8,48 
139 DATA 0@,0,9,0,0,2,8,8 


REM «**e4« MOUNT.DAT #24#% 

1g8 S=15872:FOR1=STOS+S3:READHX:C=C+XiPOKEI,“ 
?NEAT 

1198 IFCCS SS 1SSTHENPRINT"DATA ERROR!) "2 END 

128 RATA ,24,9,9,56,68,0,116 

138 NATAD ,9,118,8,8,114,48,8 

146 DATA2Z59 .129,9,227,2084,09,242,e1e 

15a DATA -232,116,1,171,122,2,107 

168 DATASS .4,293,99,13,155,86,15 

17a DAaTALZ19,89,7,147,1298,5,18,e44 

129 DATAS ,224,198,3,174,142,139,15e 

1948 DATA229 ,23,195,227,115,235,251,49 


These should be run and the binary files saved using MSAVE. 


Multi-coloured Sprites 


Like characters, sprites can be multi-coloured. They can consist of up to 
4 colours. Multi-colour sprite mode involves fewer trade-offs than multi- 
colour character mode. Any combination of any of the 16 colours can be 
used. There is still a reduction in horizontal resolution however. Each 
horizontal “pixel” needs 2 bits to define which of the four colour registers 
should be used to determine its colour. The codes and corresponding 
registers are: 
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Bit Pair Register 


QO 53281 : screen b/ground 
01 53285 : sprite multi @ 

10 normal sprite colour register 
11 53286 : sprite multi 1 


Just as we do for characters, we must inform the video chip when we 
want it to interpret sprite data as multi-coloured. This is done by setting 
bits in the “sprite multi-colour register”, which is found at 53276. Each 
sprite has a corresponding control bit in this register. If this bit is set (1), 
the sprite will be displayed as multi-coloured. If the bit is cleared (@), the 
sprite will be displayed as a normal high resolution sprite. 


e.g. telling the video chip to interpret sprite 3 data as multi- 
coloured. 

POKE 53276,PEEK(53276) OR (2 7 9) 

e.g. telling the video chip to stop interpreting sprite @ data as 


multi-coloured. 
POKE 53276,PEEK(53276) AND (255 — 2 f 9) 


We use much the same method to define multi-coloured sprites as we 
did to define mono-coloured sprites. We start with a grid, whose cells we 
fill in if we want the corresponding pixel displayed. The differences are 
that this grid is only 12 wide by 21 deep, and that now we have a choice 
of codes for filling in the cells. First then, let us decide on registers and 
colours. 


The screen background will be black, so any cell filled with “QQ” will be 
black. 


Sprite multi-colour register @ (63285) we will make white, so any cell 
filled with “@1” will be white. 


The normal sprite colour we'll make black, so any cell filled with “10” will 
be black. (A silly choice, since the background is also black but. . .) 


Sprite multi-colour register 1 (53286) we will make yellow, so any cell 
filled with “11” will be yellow. 


Now we can proceed to fill in our grid cells. 
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Multi-colour Sprite Design Grid 


12 “pixels” Data 

_k 24 bits >I 

eRe REMEREL eee 255 255 
110 | 10 | 10 | 19 | 10 | 10 | 10 | 170 170 
Aap pa a | ELSES 255 255 
ig ttt i 1 255 255 
110 | 10 | 10 | 10 | 10 | 10 | 10 | 170 170 
GIRS: Sh BE RESELL E Sw 255 255 
SIRE SEMELRELS ERED 255 255 
110 | 10 | 10 | 10 | 10 | 10 | 10 | 170 170 
ELR GIRS RE SEES 255 255 
144 | 41 | 47 [41 [44 | 14 [11 | 255 255 
110 | 10 | 10 | 10 | 10 | 10 | 10 | 170 170 
10.1 181 OF Let LoL L181 10 | 165 106 
110 | 10 | 10 | O1 | 0 169 106 
110 | 10 | 10 | OF | O1 | OF | 10 | 169 89 
110 | 10 | 10 | O1 | 10 | 01 | 10 | 169 153 
110 | 10 | 10 | 01 | 10 | O1 | 01 | 169 149 
110 | 10 | 10 | 01 | 10 | 10 | o1 | 169 166 
110 | 10 | 10 | O1 | 10] 10 | 1 169 166 
119 | 10 | 10 | 91 | 10 | 10 | 10 | 169 170 
110 | 10 | 10 | 01 | 10] 10 | 10 | 169 170 

v (10 10 | 01 [ OF | OF | 10 | 10 | 165 196 

The data for our multi-coloured sprite is: 

1 REll #*¢#%e%44%e PLATFORM.DAT «#44444 

199 S = 15872:FOR I = § TO S + B3:READ K:cC = 

C + *:PORKE 1,8: NEXT 
110 IF © < >} 11734 THEN PRINT "DATA ERROR! !" 
=F Mo 

1208 BATA 255,255 ,-255,170,176,176,255,255 

138 BATA 25953 ,255 ,2335,2509 ,4 70,170. 170,255 

14a BATA £2339 23372059 ,253 -2553 - 176,176,176 

= I 


158 DATA 255,255,255 ,255 ,255,255,178,178 
168 PATA 178,165,198 ,56,169,106,90,169 
178 DATA 89,909,169,153,154,169,149,154 
1208 DATA 169,166,154,169,166,154,169,179 
138 DATA 154,169,178,154,165,186,386,0 


Run this and save the data as a binary file using MSAVE as below. 


SYS53137“PLATFORM.BIN” xxxxx,xxxxx,8 
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Now that we have all the sprite data for this screen, we can add the 
following lines to the initialisation program, “GAME.INI”, so that the 
sprites will be loaded at the proper position. 


469 SYS MLODE"CHAR1.BIN",24576,5 
ava «SYS ~MLODE"CHAR2.BIN",26624,8 
aaa SYS MLODE"CHARS.BIN",28672,5 
499 SYS MLODE"VOLCANO.BIN",29184-8 
san SYS MLODE"CRATER.BIN",29248,8 
Sif SYS MLODE"ERUPT.BIN",29312,8 
sen SYS MLODE"MOUNT.BIN",29594,8 
520 SYS MLODE "PLATFORM. BIN" 23568 ,6 
Setting up the screen 


Since most of the graphics display is sprites, we don't use any of the 
machine code screen setup routines for this screen. The code used for 
setup is: 


319 GOSUB 2699:REM SET UP SCREEN2 , CHAR ,COLOU 
R, SPRITES, THT, SCREEN ED 

a2q  POKESS223,129:REM TIMER INTS ONLY 

24g M=PFEK( 53278)! Y=PEEK( 53279)? REM CLEAR CO 
LLISION REGISTERS 


ocean REM «#44456 TUP SCREEN #£*** ¥ 

27ae POKES 2285 -PEEK£ 53265? AND 232:REM BLANK 
SCREEN,RESET YSCROLLREG 

271g POKES3270,PEER* 53278) GR 16:REM MULTI CO 
LOUR MODE OFF 


2726 En=192:POKE648,ED 

e72za PRINT".2" 

e74n POKESS272, 130: REM SCREENe,CHAR SET4 

27508 FUELS= HELA CeeCCLCLE" 

e7TBA S2e=CHRS 152+ ” oopgeeeocereeoveceeereere 


HVE MOLAOOLeees " 

e77Aa FOR J=08 TO LIPRINT Si" LEPTS# V#,14+5)2 
TARL 23> 7LEF TS S2#,172!NEXT 

o7ean FOR J=a TO 4: PRINT Hs LEPTS#< VS, 16+J97Se% 
HEX 

P7aa PRINT "ag": LEF TS V#,2297 TABC S97" SFUEL "SFU 
ELS: TARC 25): "SSHIPS "F SHIPS: 

2saQ REM ***4*SPRITE BLOCK PTRS*eEEK 
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PS1M POKEPS664.16S:POKE283665,200:POKE2S6S6 ,26 
1:FOKEe2S667 ,202 

PS2O0 POKFPS668,Ff05:POKEPSEES ,2G6:POKESS670,20 
O®:POKE2&S671,169 

e830 REM #£#e4e4POS 1TIONS&k&*4e 

P8446 POKEY,249:POKEV+1,58:POKEV+2,44:FOKEV+tS,1 
34:POKEV+4,249 :POKEV+S, 128 

2858 POKEY+6,48:POKEV+7,SS:POKEV+S, 165:>FPOKEV+ 
9,134: POKEV+19,190:POKEV+i1,17=3 

e888 POKEV+12,237:POKEV+t13,144:POKEVt14,24: 
POKEY+15,71:POQKEV+16,0 

e878 REM «***##EHABLE SPRITES*### #4 

POKEV+4¢21,255:XVEL=@!: YVEL=O:S8=24:57=58 

REM #£#*£*£4COLOUR & kK 

PSQH PORKEYV+39,1:POKEV+4@,12:PGKEV+t41,4:POKEVt 

42,7: POKEY+46,2 

19 POKEV+493,12:POKEV+44,@:POKEV+45,9 

2320 POKES53285,1:POKE53286,7:!POKES3276,32:REM 
MULTICOLOUR PLATFORM 

2930 POKEY+23,58:POKEV+29,53:REM EXPAND VOLCA 
NG ,ERUPT ,MOUNT,PLATFORM 

2348 POKES3275,1653:REM SPRITE PRIORITY 

e958 CHT=18:REM ANIMATE DELAY 

2969 POKES3265,PEEK{ 53255) OR 16:REM UNBLANE 
SCREEN 

2eSs7G RETURN 


The character “@"” has been redefined as a reversed space. Normally 
this would not be necessary, as we would simply use a reversed space. 
However, since our character sets consist of only the first 64 characters 
of the standard character set, we don’t have reversed characters 
available. 


Sprite/sprite collision register 


The sprite/sprite collision register was mentioned earlier. In this section 
we actually get around to using it. It is wise to clear it prior to use, as we 
have done, because sprite collisions are recorded by the register and 
kept until you read it. So, if you don't clear it, a collision not dealt with in 
an earlier section may appear as a collision in this section. 


89 


The game loop 


As well as showing you how to use the sprite/sprite collision register, this 
section also introduces animation of sprites. 


The code for the loop is: 


376 REM *£4#224¢GAME LOOP Oe ke EF 

369 FOR 3=8 TG 1 STEP & 

378 GCSUB S3Q:REM JOYSTICKe ROUTINE 

33a GOSUB 1149:REM COLLISIONe ROUTINE 
338 GOSUB 620 : REM ANIMATE VOLCANO 

qe NEXT J 

41a IF SHIPS=@ THEN SOTO i178 

429 REM ¢*££eEND LOOPE-SETUP LOOPS&ke*#4# 


Now the code for the subroutines used in the loop. 


This joystick routine moves the ship sprite in all 8 directions. 


1g REM KKKKHKAE KKK EERE EEE RHEE EERE REE ESE 
326 REM JOYSTICK CONTROL ROUTINE @ 
308 H=PEEK( SE3P082:IS=15-¢x% AND 15°3:°FR== AND 
16: €¢HI=PEEK( ¥V+1GoAND12e3 

34 POKEYV+2P1,PEEKS ¥Y+21>2 AND 127:REM DISABLE 
FLARE SPRITE 

S359 OM JIS+1i GOSUB 1906,3980,1800,9798,1020,1085 
9,16689,9709,1976,1110,11260 

SEH POKEY,SM:IPOKEV+t1,SY!:PORKEY+i4,S6:POREV+iS 
yorte i 

a7! RETURN 

See POKEFV+21,PEEKC V¢4+21°30R 128: YVEL=-1:°:1F Sy¥t 
YVEL<¢29 THEN RETURA 

3398 SY=SBYtYVEL: RETURN 

19606 YVEL=2P:1IF SYtYVEL?231 THEN RETURN 

1AiA SY=SY+YVEL:FETURN 

{APM HVEL=-PtIF (SH+XVELSCO AND AHI=9> THEN 
RETURN 

1A3a TF (<SH+HVELSO ANO SHI=1 

PEFEKC V+i6B ANDLe2S :SH4=255 

1fGA SH HSK+KVEL SF RETURN 

1A50H GOSUB SSa:G6R05U8 1826: RETURN 


»THENPORKEYV +16, 
VEL SP RETURN 


' 
29 
+H 
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1Q@6@ GOSUR 18@0:GOSUB i@et: RETURN 
1 IF SH+tARVELSS9 ANDRHI=-129 THEN 


19820 IF SAtHKVEL S2S5ANDAHI=-QTHEN SA=OtKRYVEL: 
POKEY+165,PEEKC ¥+16390R123 

1930 IF SKtRVEL<Z255 THEN SAX=SHtAVEL 

11988 RETURN 

1118 GOSUB 39BG@:GOSUB 187: RETURN 

1126 GOSUB 1888:GOCSUR L87O: RETURN 


The collision routine checks for both sprite/sprite and sprite/ 
background collisions, and takes the appropriate action depending on 
the collision that has occurred. 


113208 REM #**4*COLLISIQNS SCRNP eee te 

1149 #=PEEK( 53278) AND 127: Y=PEEKC S32792> AND 
1 

1158 IF ==@ AND ‘Y=8 THEN RETURN 

Lisa IF 4=33 THEM GOSUB 1198: J=1:° RETURN: REM 
PLATFORM COLLIDE 

1178 IF COLLIDES >@ THEN GOSUE 130@:REM FATAL 
COLLISTON 

1188 RETURN 

119@ REM *#*#444PLAaTFORM COLLIDE*4£4#4% 

1290 POKEY+21,PEEKC ¥+21 3 AND1I27 

1710 FOR K=@ TO 39 

1220 POKEV+1,PEEK( ¥+1)-1:°:POKEVt11,PEEKSC ¥t+tilo- 
1 

1238@ FOR L=8 TQ SOQ: NEXT LiNEST K 

1249 SY=PEEKS V4+1):POKEC ¥+159,SYt21:POKEVt21, 
PFFEC Y+2130R1238 


125@ FOR K=8 TO 18@@:NEXKT 

1266 FOR K=SY TQ 23 STEP -t 

1278 JS=1:4XHI=8:G0SUB 340:°REM FLY OFF 
1230 NEAT BF 

1290 POKEV+21,PEEKC V+213 AND 126:RETURN 
[20H REM ##e#*e44FARTAL COLLISIONS kee a 

{1216 SHIPS=SHIPS-1 

1320 PRINTS" FLEPTS#( V$,2397 TABC Si)? SHIPS; 
1330 IF SHIPS=6 THEN J=1 

1348 RETURN 
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Sprite Animation 

The concept of sprite animation is the same as that used in character 
animation. First we define sprites which form a movement sequence of 
the same shape. After placing the first in the sequence on the screen, 
the shape is animated by changing the pointer the video chip uses 
tofind the sprite data. As the pointer is changed, the video chip displays 
the next shape in the sequence. This is continued for as many shapes as 
make up the movement sequence. And since only one sprite is used for 
all this, the only limit to the complexity of the movement is the number of 
sprite definition blocks you're prepared to define. 


| have defined only three animations for the eruption sequence. 

62a REM *****ANIMATE VYOLCANG#£4%% 

628 IF CNT< >@ THEN CNT=CNT-1: RETURN 

649 CNT=5 

65a IF PEEKS 28667>9=284 THEN POKE2S667 ,282: 
RETURN 

66a POKE2 S667 ,PEEK( P8667 >+1 

67a RETURN 

Use the following program to create character set 4 and save it as 

“CHAR4.BIN” with MSAVE. The program will create the character set at 

30729 to 31231 inclusive. 


3 REM * CHARACTER SET 4 CREATE PROGRAM 
19 POKES6333, 127 

26 POKE1,PEEKC 1> ANDe2S1 

38 FOR J=8@ TO 511 

49 POKE30720+J ,-PEEK( 532498+J > 

58 NEXT 

6a POKE1,PEEKC 1> OR 4 

78 POKE56333,129 

ea FOR J=0@ TO 7? 

38 READ D:POKE39729+J,D 


i8a NEXT 

119 FOR J=@ TO 7 

128 READ D:POKE3@720+274%8+J) .D 

138 NEXT 

318 DATA 255,255,255 ,255 

328 DATA 255,255,255,255 

338 DATA 8,28,54,99 

540 DATA 95,54,28,8 

To load the character set, add the following line to GAME. INI. 


485 SYS MLODE "CHAR4.BIN",30729,8 
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CHAPTER 8 


Screen and Loop 3 
In this section we introduce horizontal scrolling, both fine and coarse. 


Horizontal Fine Scrolling 


As we said when we introduced vertical scrolling, the video chip can 
also shift the screen horizontally by any number of pixels up to 8. 


The 64 uses bits 0 to 2 of byte 53270 as the horizontal scroll register. The 
default value of this register is @. When itis this value, the screen is as far 
to the left as possible. When the register is 7, the screen is as far to the 
right as possible. 


In order to facilitate fine scrolling data onto the screen, the 64 also 
provides the ability to blank out part of the screen, just as for vertical 
scrolling. 


38 Column Mode 


Presumably because there are more columns than rows, the video chip 
blanks out two columns, one on each side of the screen, compared to 
the row it blanks for vertical scrolling. However, this makes little 
difference to the way you use this. When you're scrolling to the right, put 
new data into the leftmost column when the fine-scroll register is @. If 
you're scrolling left, put new data in the rightmost column when the 
fine-scroll register has a value of 7. 


38 column mode is controlled by a single bit flag. Like 24 row mode, this 
flag is the bit next to its scroll register. That is, it is bit 3 of byte 53279. 


eg. to turn on 38 column mode the flag should be cleared. 
POKE 53279, (PEEK(53270) AND 247) 


eg. to turn off 38 column mode the flag should be set. 
POKE 53279, (PEEK(53279) OR 8) 
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Coarse Scrolling 


As for vertical scrolling, we need to be able to do more than just scroll the 
screen by 8 pixels. To get a continuous scroll, we must add a routine 
which scrolls the screen by a full character. This is the coarse scroll. The 
assembly language listings below describe routines which scroll left 
and right. 


Pekeee4e FSCRGLLEPT *#44%% 


-05 
-BA C200 
SCROLLREG .DE 33278 
TOPLEFT IS POINTER TO TOP LEFT OF 


TBPLEPT «DE fis 

FILL AGE. F1i¢ 

7LNUM IS HEIGHT CF SCROLL WINDOW 
LPP «OE £18 

?7CNUM IS WIDTHS -13 OF SCROLL WINDOW 
CMU DE Fis 

7;TOP IS START OF LINE BEING SCROLLED 
TOP DE 251 


?TOP1 IS START+1 OF LINE BEING SCROLLED 
TOP 1 «BE. 253 
7NELAY IS SCROLL SPEED 
DELAY Ge. Feo 
?ZDELAY IS WORKING STORAGE FOR DELAY 
ZDELAY se fei 
3;CFLAG IS FLAG TO SIGNAL COARSE SCROLL 
CFLAG .DE 2 

LOA #2 

STAR «CFLAG 


DEC Z2DELAY 
REQ SMOOQTHL 


RTS 
FFIRST RESET DELAY 
SMocoTHL. LOA DELAY 


STA ZDELAY 

LDA ASCRCGLLREG 
AND #7 

PEG CCARSE 
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DEC XSCROLLREG 
RTS 
COARSE LDA XSCROLLREG 
ORA #7 
STA #XSCROLLREG 
?SIGNAL COARSE SCROLL 
LDA #1 
STA *CFLAG 
SCROLLEFT LOX LNUM 
7 TRANSFER START ADDRESSES TO 2-PAGE 
LDA TOPLEFT+1 
STA *TOP+1 
STA *TOPI+1 
LOA TOPLEFT 
STA *TOP 
7;CALCULATE TOP1 ADDRESS 
CLC 
SCROLLEFT® ADC #1 
STA *xTOPI1 
BEC SCROLLEFTI1 
INC *TOPiI+1 
7;SCROLL CNUM CHARS 
SCROLLEFT1I LOY #@ 
SCROLLEFT2 LDA ¢ TOPLID,Y 
SIA 4°TORP).F 
INY 
CPY CNUM 
BNE SCROLLEFT2 
;FILL LAST CHAR IN LINE 
LDA FILL 
STA ¢( TOP?,Y 
7COUNTDOLIN NUMBER LINES SCROLLED 
DES 
*1F FINISHED THEN BRANCH 
REQ SCROLLEFT4 
?OTHERWISE UPDATE LINE ADDRESSES 
LOA *TOP 
CLC 
ADC #48 
STA *xTOP 
BCC SCROLLEFTS 
INC *TOPtl 
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SCROLLEFT3 


SCROLLEFT4 


. 
f 

= 
oa 


*TOP1i+1 
*TOP 


INC 
LDA 
CLC 
BCC 
RTS 
»-EN 


SCROLLEFT&S 


kkeK* FSCROLLRT 4£*#**# eK 


»OS 
»-BA #CO06 
SSCROLLREG .DE S3e27ra 
TOPLEFT -DE 783 
F ILL -DE 785 
?FLANUM IS HEIGHT 
LNUPI -DE 786 
?7CNUM IS WIOTH-2 
CNUP -—DE 7o7 
TOP «DE 251 
TOP i -DE 253 
DELAY -DE Y@e 
“DELAY -DE 7893 
CFLAG DE 2 
LDA #68 
STA *CFLAG 
DEC 2DELAY 
BEG SMOOTHR 
RTS 
?FFIRST RESET DELAY 
SMOOTHR LDA DELAY 
STA ZDELAY 
LOA XSCROLLREG 
AND #7 
CMP #7 
BEG COARSE 
INC XSCROLLREG 
RTS 
COARSE LDR *SCROLLREG 
ANDO #248 
STA RXSCROLLREG 


?SIGNAL COARSE 


SCROLL 
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LOA #1 
STA *CFLAG 
SCROLLRT LOX LNUM 
LDA TOPLEFT+1 
STA *TOPti 
STA *TOPI1+1 
LDA TOPLEFT 
STA *TOP 
STA «*TOPI1 
CLC 
SCROLLRTO® ADC #i 
STA x*xTOPi 
BCC SCROLLRT1 
INC *TOPi+i 
SCROLLRT1 LOY CNUM 
SCROLLRT2® LOA ( TOP?,Y 
Simm < FOP13+7T 
DEY 
BPL. SCROLLRT2 
LBA FILL 
LOY #8 
Sin ¢ TOP 3.7 
NES 
REQ SCROLLRT4 
LOA *TOP 


CLC 
ADC #46 


STA *TOP 

BCC SCROLLRT3 

INC *xTOP+1 

INC *TOPi+tti 
SCROLLRT3 LDA *TOP 

CLC 

BCC SCROLLRT®@ 
SCROLLRT4 RTS 

»-EN 


These convert to the following data files. 


1 REM x*xx*%*%*%* FSCROLLEFT.DAT **+#*# ee 

1An S = 4915P:FOR I = § TQ S&S + 1@1:READ #4:C 
C + X!IPOKE 1,8: NEX 

Bs 


116 IF € >» 13818 THEN PRINT "DATA ERROR!!!" 
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12a DATA 169,0,133,2,286,209,2,24@a 

138 DATA 1,96,173,289,2,141,299,2 

148 DATA 173,22,208,41,7,240,4,2a6 

158 DATA 22,208,596,173,22,298,3,7 

168 DATA 141,22,208,169,1,133,2,174 
17a DATA 266,2,173,294,2,133,252,133 
188 DATA 254,172,203,2,1223,251,24,105 
156 DATA 1,133,253,144,2,230,254,169 
Peaa DATA @,177,253,145,251,208,204,207 
21a DATA 2,2608,246,173,205,2,145,251 
PPA DATA P82 ,240,18,165,251,24,195,4ea 
230 DATA 133,251,144,4,239,252,220,254 
e4qa DATA 165,251,24,144,219,96 


1 REM *#***4 FSCRGLLRT.OAT kexxx«x 

1A S = 49152:FOR I = = TO S$ + 1O5:READ x:C 
= € + X!=PQKE 1,%?:NEXT 

114 IF © ¢ > 14336 THEN PRINT "DATA ERROR! !" 
-END 

128 DATA 169,0,133,2,206,197,2,240 

138 BATA 1,96,173,196,2,141,197,2 

14a DATA 173,22,208,41,7,201,7,249 

156 DATA 4,239,22,293,98,173,22,208 

1608 DATA 41,2498,141,22,208,169,1,133 

178 DATA £2,174,194,2,173,192,2,1323 

188 DATA 252,123,254,173,191,2,133,251 

198 DATA 133,253,24,1095,1,133,253,144 

eee DATA 2,230,254,172,195,2,177,251 

ein DATA 145,253,136,16,249,173,193,2 

een DATA 160,08,145,251,202,248,18,165 

238 BATA 251,24,105,49,133,251,144,4 

eqa DATA 230,252 ,230 ,254,165,251,24,144 

25a DATA 216,96 


bok CSCROLLEFT *4%44% 


z 
Sa 


»OS 
-BA $C 100 
SSCROLLREG .DE S3270 
#TOPLEFT IS POINTER TO TOP LEFT OF WINDOW 
TOPLEFT DE 722 
7FILL IS COLOUR FOR SCROLLING ON 
FILL -DE 724 


7;LNUM IS HEIGHT OF SCROLL WINDCGH 


LUM -DE 725 
?CNUM IS WIDTH< -1)> OF SCROLL WINDOW 
CNUM -_DE Yes 
?TOP IS START OF LINE BEING SCROLLED 
TOP —BDE 251 
?TOPi IS START+1 OF LINE BEING SCROLLED 
TOP 1 LE £253 
?CFLAG IS COARSE SCROLL FLAS 
CFLAG ~-DE 2 
SMOQOTHL LDA *CPFLAG 
CMP #1 
PEQ SCROLLEFT 
RTS 


SCROLLEFT LOX LNUM 
F TRANSFER START ADDRESSES TO Z-PAGE 
LDA TOPLEFT+1 
STA *TOFt+1 
STA *TOPi+i 
LOA TOPLEFT 
STA *TOP 
?CALCULATE TOP1 ADDRESS 
CLC 
SCROLLEFT@ ADC #1 
STA *TOP1 
BCC SCROLLEFTI! 
INC *TOP1+i1 
?3CROLL CNUM CHARS 
SCROLLEFT1i LOY #8 
SCROLLEFT2 LDA ¢ TOP12?>,¥7 
STA ¢€ TOP? ,T 
INY 
CPY CNUM 
BNE SCROLLEFT2 
FILL LAST COLOUR BYTE IN LINE 
LOA FILL 
STA *TOP),Y 
?COUNTOOWN NUMBER LINES SCROLLED 
NES 
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ne 


?FINISHED 

REQ SCROLLEFT4 
FUPDATE LINE ADDRESSES 

LDA *TOP 

CLC 

ADC #48 

STA *TOP 

BCC SCROLLEFTS3 

INC *TOP+t1 

INC *TOPI1+1 
SCROLLEFT3 LOA *TOP 

CLC 

BCC SCROLLEFT@ 
SCROLLEFT4 RTS 

»~EN 


eee CSCROLLRT #4£#*##4% 


2 
+ 
2 
¥ 


.as 
.BA $C19a 
HSCROLLRES .DE 523270 
' TOPLEFT DE 71a 
FILL .DE 712 
LNUM .DE 7123 
CNUM .DE 718 
TOP .DE 251 
TOP 1 .DE 253 
SMOOTHR LOA XSCROLLREG 
AND #7 
CMP #a 
BEQ CSCROLLRT 
RTS 


mM 
u 
a] 


ROLLET LOsx LNUM 
LOA TOPLEFT+1 
STA *«TOP+1 
STA *#TOPI +1 
LOA TOPLEFT 
STA «TOP 
STA *TOP1 


CSCROLLRT1 
CSCROLLET?S 


CSCROLLRTS3 


CSCROLLRT4 


1 REM 
1986 s 


154 

16a DATA 
174 DATA 
ina CATR 
198 DATA 
Pan DATA 


= 4$934@S3:FOR I 
HIPOKE I,%!NERT 


#1 

xTOPI 
CSCROLLRT1 
*xTOP1+1 

Y CNUM 

¢ TOP) .¥ 
(TOPI?,Y 


CSCROLLRTe2 
FILL 


«TOP 
CSCROLLRT3 
*TOP+! 
‘TOP 1i+1 
«TOP 


PCC 
RTS 
2EWN 
*k**k4e4eek CSCROLLEFT.DAT 444 *e# 4% 
5 Ta + 7e2e:READ 


CSCROLLRT@ 


= 
— 


—_ 


mic 


£ > 18734 THEN PRINT “DATA ERROR!!!" 
i73,22 ,208,41,7,281,7,240 

{ 558, 174,213.21 7S 21152 

133,252 ,133,254,173,219,2,135 
251,24,1905,1,133,253,144,2 


PAO ,204 ,214,2,298,246,173,212 
2 ,145,251,292,248,138,165,251 
24,185 ,.49,133,251,144,4,2368 
PSP ,228,254,165,251,24,149,218 
36 
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RE 
se 
Cc + 
IF C 
=E ND 
DATA 
DATA 
nATA 
DATA 
DATA 
CATA 
NATTA 
CATA 
MATA 


**x*ke CSCROLLRT.DAT *x**4% 

43498:FOR I = S$ TO S + 7Fi:READ X:C = 
SI=POKE I,8:NEST 

* 2 184998 THEN PRINT "DATA ERROR! !" 


165 ,2,2061,1,240,1,96,174 

Oi se, i 73413995 ,2.135;,292, 133 
ent, 173,198 ,2,133,251, 133,258 
24,195,1,133,253,144,2,238 
254,172,207 ,2.,177,251,145,253 
136,16,249,173,2700,2,160,8 
149,251,202 ,2460,18,165,251 ,24 
195,409,133 ,251,144,4,238,252 
e230 ,254,165,251,24,144,218,96 


Using the Scroll Routines 


As for the vertical scroll, you can tell these scroll routines what part of the 
screen to scroll, how fast to do it, and what character to fill the leftmost 
(or rightmost, depending on the scroll direction,) column with. 


Scrolling left 


Variable Name 


topleft 
fill 
Inum 
cnum 


delay 


zdelay 


Function Address 
the address of the lo-byte-715 
top left cell of the hi-byte-716 
scroll window 

code for fill character 717 
number of rows in 718 

scroll window 

one less than the 719 


number of columns in 
the scroll window 


number of interrupts 720 
between each fine 

scroll 

as for dealy but 721 
in zero-page 
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Scrolling Right 


Variable Name Function Address 

topleft lo-byte:703 
hi-byte:704 

fill 705 

Inum width 706 

cnum height-1 707 

delay 708 

zdelay 709 


These variables have the same function as the corresponding left scroll 
variables. 


Stopping the Fine Scroll 


On this screen, as on the others, we will have score and other 
information at the bottom of the screen. So, as before, we don’t want this 
part of the screen to be scrolled. We stop it coarse scrolling by telling the 
scroll routine to scroll the other part of the screen only, but again, we 
need to take further action to stop the hardwafe controlled fine-scroll. 
The same method as was used for the vertical scroll is applicable, and 
this time, with far fewer problems. The assembly enage listings for 
the routines used to do this are below: 


First, stopping the left fine-scroll. 


FeekekK STOPFINELF *£k4xx 


SSCROLLREG .DE S3278 
FSAVYEDX IS CURRENT XSCROLLREG VALUE SAVED 
SAVED -DE 743 

LOA XSCROLLREG 

STA SAVEDS 

AND #248 

STA ASCROLLREG 

RTS 

»EN 
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This converts to the following data file. 


1 REM ***k4kk% STOPFINELF.DAT **44%%% 

14a S = 49152:FOR I = $ TO S + 11!READ K:C = 
GC + #?POKE 1,8!NES 

i148 IF C < > 1260 THEN PRINT "DATA ERROR! !": 
END 

128 DATA 173,22,208,141,231,2,5,7 

1368 DATA 141,22,205,396 


Next, stopping the right fine-scroll. 


reekeeek STOPFINERT *#*4#£%% 


s 
a 


205 

-PA #Coa8 
%SCROLLREG .DE S327 
!SAVEDX IS CURRENT XSCROLLREG VALUE SAVED 
SAVEDX .DE 742 


LDA XSCROLLREG 
STA SAVEDA 

AND #248 

STA XSCROLLREG 
RTS 

~EN 


The data file for this routine is: 


i REM £#*eeeee STOPFINERT.DAT £*# e444 

188 S = 49152:FOR I = $ TO S + 11:2READ X®C = 
C + X!tPQKE 1I,X!NEXT 

119 IF C ¢< > 1532 THEN PRINT "DATA ERROR! ! "= 
END 

ifAa DATA 173,22,208,141,230,2,41,249 

138) mata 141,22,208,96 


Having stopped the fine-scroll for the score and so on, we will want to 
restart it for the rest of the screen. Again, the same method as for the 
vertical scroll is used. The following routines get the fine scroll register 
value which was saved by the routines above, and load it back into the 
fine-scroll register. 
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First, to reinstate the fine scroll left. 


:*ee%xee RESUMELF *£4*#**% 


.OS 

-BA #Ca6o0 
SSCROLLREG .DE 33278 
SAVEDA -DE 743 


LDA SAVEDA 

STA XSCROLLRES 
RTS 

~EN 


The data for this is: 


1 REM K**ek4ek*e RESUPELF.DAT 444 e4# 

16a S = 49152:FOR I = 5 TO S + 6:READ A:C = 
® + X:POKE I,X?NEXRT 

114 IF C ¢ > 873 THEN PRINT "DATA ERROR! !": 
END 

12a DATA 173,231,2,141,22,298,96 


Now the routine to restart right fine scrolling. 
Pkekekek RESUMERT #4444 


.GS 

BA +$C8O99 
HSCROLLREG .DE S327€ 
SAVEDX »-DE Y4e 


F 


LOA SAVED 

STA XSCROLLRES 
RTS 

»EN 


This converts to the data in this file. 


1 REM KKKKEKKE RESUMERT. CAT *£*4 eee KKK 

{aA S = 49152:FOR I = S$ TO S&S + GSREAD #:C = 
C + #§POKE [,X!NEXT 

119 IF C < > 872 THEN PRINT "DATA ERROR! !": 
END 

12a DATA 173,230,2,141,22,208,36 


105 


As usual you should run these data files and save the executable (ie. 
“.EXE”) files using MSAVE. 


SYS53137“RESUMELF.EXE”, x x xxx, xxxxx 8 
SYS53137"RESUMERT.EXT”, x xx xx,x xx xx 8 


To ensure that they are loaded at the correct address at the start of the 
game add these lines to “GAME.|INI”. 


348 SYS MLODE"STOPFINERT. EXE" ,5@992,328 
558 SYS MLODE "STOPF INELF.EXE”,59112,8 
368 SYS MLONE"RESUMERT.EXE",5@122,8 
378 SYS MLODE "RESUMELF.EXE",50142,8 
SBA SYS MLODE"FSCROLLRT.EXE" ,5@152,8 
5308 SYS MLODE "FSCROLLEFT.EXE" ,50272,8 


The mainline code for this third screen is: 


4308 GOSUR 2988:REM SET UP SCREEN3,CHAR,COLOU 
R,-SPRITES,TXT,SCRN ED 

4408 POKE S33272,222:REM SCREEN,CHAR PTR 

459 REM ****44GAME LOOPS k*«xx 

468 FOR J=8 TO i STEP @ 

478 GOSUB 1490:REM JOYSTICK3S ROUTIN 

488 GOSUB "?" =REM COLLISION CHECK 

498 NEXT J 

3 Ae IF SHIPS=@ THEN GOTO i7a 

518 PRINT" 2" -POKE53299,1:POKE523291,1 

aeA PRINT LEFTS( V$,10>?TABC 83: "MWELCOME To < 
DEMI GODHEAD" 

Sah FOR J=8 TO 10@@:NEXxXT 

5448 POKES68578,PEEK(¢ 56578) OR 3:REM DDR A 

B5a POKESS576,¢PEEK( 565762 AND 252) OR 3:REM 

SLITTCH BACK TO VIBEOQ BANK 8 

368 POKE648 ,4°POKES3272,21:REM SCREEN ED,SCR 
FEN+CHARSET 

365 END 


The code to set up the screen and relevant pointers is: 


PSSH REM *4***eSETUP SCREENS #eexx 

2998 POKES3265,PEEK(C 53265 .AN0 239:REM BLANK S 
CREEN 

3098 SOSUB 311@:REM SCREENS PTR SETUP 

3910 GOSUR 2259:REM CLEAR AND SET UP SCREEN 
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SX=168:°SY=141°POKEV,SH:POKEV+1,SY5REM PO 
SITION SPRITE 

POKEV+39,6:REM SPRITES COLOUR 

POKE S32739,6:REM CLEAR SPRITE/B'GRNO COL 
LISION REG 

POKES32708@,PEEKC 53279) AND 247 5REM 38 COL 
UMN MODE 

PRINT" 8"; LEFTS¢ ¥$,239?F TABC 33; "SCORE ";SC 
ALR: TABC 2527 "SHIPS "SHIPS: 
POKEV+21,1:°:REM ENABLE SPRITE 

GOSUB 3260:REM SET UP RISC 
POKES3265,PEEK(¢ 53265 30R 16:REM UNBLANK 5 
CREEN 

RETURN 

REM #£****SCREENS PTR SETUP#& ee 

COTA=48 >: CHDTA=1399:CSCREENLOL=8:C1ISCRNHI= 
21i6:REM COLOURSET 

LOTA=2 tS :HOTA=196-LSCREEN=39 =HSCREEN=116 
>REM SCREENSET 

REM k***eeR TIGHT SCROLL PARAMETERS ##4#4% 
POKE 72 ,@:POKRETO4I, 11S: REM SCRNSTART 
POKE7@5,32:PQKE7OS ,2P'POKEVO?,2S:REM FIL 
L,HEIGHT,WIDTH-2 

PORE Y@3 ,2:>FPOKEY@9,3:REM DELAY 

REM oie cae cae SCROLL PARAMETERS *«k*% 
POKETIS,@8:POKE716,116:REM SCRNSTART 

POKE Yi? ha itll Raster FIL 
L,HEIGHT,WIDTH-1 

POKEY2@,3:POKE72Z1,3:REM DELAY 

REM ##ek*4SPRITE PTRS#e&e%* 

POKE3@712,233 

FD=116!:POQKE6498,F0:REM SCREEN EDITOR 
RETURM 

REM **k#kxeRESET IF TO RISCHKEEEE 
POKES6E333,127:REM INTERRUPTS OFF 
POKES3265 ,PEEKL S3265 AND L127! POKESS266 ,22 
4:REM RAST COMP REGS 

POKEY27 ,2e23:POKE728,207:POKE729,223:POKE 
7380 ,287:REM RISC DATA FPTRS 
POKES63323,128:POKES3274,129: REM: RASTER I 
NTERRUPTS ENABLED 

RETURN 
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The joystick subroutine moves the sprite up and down only. The left and 
right controls switch the direction of the scroll. 


19408 REM kkk*eeIS ROUTINE Sexe 

1916 R=PEEKC S63209'5I5=15-(% AND 159°FB=% AND 
16 

142@ ON JS GOTO 1446,1488,1439,1488,142@,143a 
71439,1520,1430,1438 

14930 RETURN 

1446 IF S¥Y*52 THEN SY¥Y=52 

14580 SY=SY-2:POKEV+1,Sy:RETURN 

1966 IF SY>178 THEN SY=178 

1470 SY=Sy¥+t2:POKEV+1,SY: RETURN 

1986 IF Sxé=-1 THEN RETURN 

1490 Sx=-1:POKES6333,127:POKEY’27 ,223:POKE7TSE, 
216: POKES? ,196:POKE738,33 

1580 POKE38712,233:POKE56333,128 

15198 RETURN 

i520 IF Sx#=1 THEN RETURN 

i536 S¢=1°PORESSs33, [27s PORE re? ,£36:PORKE7 35, 
iS:POKE737,1396:POQKE738,38 

15496 POKESS7 12,232: POKE56333,128 

1558 RETURN 


ru 


The collision routine checks for collisions. If you make it through the 
aliens you collide with different characters. This signals the end of the 
game. | leave the collision code to you as an exercise. 


To avoid spending too much time on the raster interrupt routines, I’ve cut 
out the need for a colour scroll of this screen by making all of colour 
memory the same colour. This limits you a bit, since it means that every 
character must be the same colour, but you can add colour using 
sprites if you so desire. Alternatively, you might set up colour memory so 
that characters change colour when they move across certain portions 
of the screen. That way, you get a more colourful display but still avoid 
the need for a colour scroll. 


The data files for the screen and colour memory that | came up with 
follow. Feel free to make them more interesting and colourful. 


REM *«***x* SCREENS.DAT *£4x4* 
1a S=49152:FORI=STOS+46@:READKIC=C+H:POKEL, 
mtNEXKT 
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114 IFC< 32 754OTHENPRINT"DATA ERROR! ! "END 
12 DATAL,1,121,1,41,1,161,1 
1320 pATALd1,1,81,1,161,1,0,41 
14a DATAL,121,1,161,1,2081,1,91 
156 DATA ,241,1,8,81,1,161,1 
169 DATAZSG1,1,241,1,41,1,381-1 
17A DATA@,1,-1,121,1,41,1,161 
13a NATA1,241,1,91,1,161,1,9 
190 DATAG!,1,121,1,161,1,201,1 
2Ae DATAS81,1,241,1,08,81,1,161 
eia DATAI,201,1,241,1,41,1,81 
229 DATAL,@,1,1,121,1,41-1 

e3a DATAI61,1,241,1,81,1,161,1 
246 DATAG®,41,1,121,1,161,1,261 
= DATA ,$1,1,-241,1,8,81,1 

= DATA1I61,1,291,1,241,1,41,1 
e7To DATAS1,1,@,1,1,121,1,41 
238 DATAL,161,1,241,1,381,1,161 
esa DATAI,9,41,1,121,1,161,1 
368 DATAZG1,1,381,1,241,1,8,81 
319 DATAI,161,1,201,1,241,1,41 
32a DATAI,31,1,9,1,1,121,1 

338 pAaAtTAdi,1,161,1,241,1,81,1 
348 DATA1G1,1,8-41,1,121,1,161 
258 DATAI1,2#0@1,1,81,1,241,1,8 
368 obaTASi,1,161,1,201,1,241,1 
37a NATAS1,1,81,1,@,1,1,121 
338 DATA1,41,1,161,1,241,1,31 
33a DATA1,161,1,0,41,1,121,1 
4aen DATAIG61,1,201,1,81,1,241,1 
4108 DATA®,81,1,161,1,201,1,241 
428 DATAI,41,1,81,1,@8,1,1 

4308 DATAI2Z1,1,41,1,161,1,241,1 
4448 OATASL,-1,161,1,9,41,1,121 
454 DATA1,161,1,201,1,81,1,241 
46a pAaATA1L,8,91,1,161,1,2081,1 
4708 neatTaAe#4i,i-41,1,81,1,98,1 

ad oh NATAL,12£21,1,41,1,181,1,e41 
a8 DATAI,81,1,161,1,9,41,1 
DATA1IZ1,-1,161,1,2081,1,581,1 
18 CATAZ41,1,8,81,1,1681,1,261 
28 DATA1,241,1,41,1,381,1,8 


‘7 
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OATAlsisl2isls»4141,161,4 
DATARE4I1,1,31,1,161,1,9,41 
DATH1, 12@1,1,161,1,201,1,81 
DATA -241,1,0,81,1,161,1 
DATALS1 »1;,241,1,41,1,81,1 
OntAG. i -1.i21,1,-41,1,161 
DATA ,-241,1,81,1,161,1,8 
OATASL 1, igl,i-'Gi,1,201,1 
PATAS1,1,241,1,9,931,1,161 
BATA1l,261,1,241,1,41,1,81 
BATAI,O8+1+1,121,1-41,1 
DATA161,1,241,1,81,1,161,1 
DATAO -41,1,121,1,161,1,201 
DATAL,31,1,241,1,8,81,2 
DATAS1,2,81;2,81,2,81s2 
DATAG1,2,31,2,81,2,31,2 
DATAS1,2,8 


REM *k*k* COLOURS .DAT *4* keke 

S = 45152:FOR I = S$ TO S$ + S!:READ X:IC = 
C + XIPOKE I,X%! NEXT 

IF € ¢ > 852 THEN PRINT "DATA ERRORI!": 
END 

DATA 255,3,255,3,255,3,75,3 

DATA © 


You should run these, or your own, files and save the dataas 4 binary file 
using MSAVE. If you are going to design your own screens, you should 
consider spending some time designing a program which will make it 
quicker and easier to do. The time will be well spent — programming 
aids like that should not be underestimated. Without them graphics, at 
least, can be very tedious. 


We only use two sprites in this screen. Since there’s nothing about them 
that we have not already discussed, I'll just give you the data file. 


REM #4#4e%* SPRITESS.0OAT ¢ekx4&% 
S=15872:FORI=ST0$+255:READH!:C=C+X:POKEI, 
MINER 

IFC< S95 78@THENPRINT"DATA ERROR! !":END 
DATAS ,8,8,0,8,9,8,8 

DATAG ,9,0,8,0,8,56, 
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148 OATA® ,252,224,8,254,248,1,254 
158 naATaAed,1,255,31,255,255,e494,1 
168 DaATa2e5S5 ,249,1,254,224,09,254,8 
17a DATAS ,252,8,9,56,0,8,0 

126 DATAS ,2,9,09,9,0,0,6 

136 DATAS ,2,9,0,0,0,8,6 

208 DATAS ,9,09,9,9,8,0,9 

216 DATAG ,2,8,8,283,8,0,63 

229 DATAS,9,127,9,7,127,128,15 
230 DATA2ZSS,128,24,255,255,24948,255,125 
240 DATAL4, 127,128,15, ee ,¢,83 
esa DATA ,2,28,8,0,08,8 

26a DATAS ,6,8,0,4 ‘ian 

era DATAG ,4,06,0,08,0,8,98 

2388 DATAO,9,6,0,8,8,9,6 

eae NATAGD ,4,0,8,8,0,0,60 

388 DATAS ,9,08,9,0,8,0,6 

316 NATAGa,@,9,4,0,0,7,129 

328 DATA® ,7,255,252,6,12,31,7 

328 NATA2SS ,252,7,128,60,4,8,8 

348 DATAS ,-9,6,0,8,9,0,0 

358 DATAG,a,9,9,0,0,0,8 

369 DATAS ,9,9,0,0,9,0,6 

37a DATA ,@,9,9,8,09,8,6 

338 NATAD ,O2,9,9,9,0,9,0 

338 DATAG ,2,0,80,0,32,8,1 

4aH DATA2Z24,63,255 ,224,248,42,396,63 
410 DATALSS ,224,0,1,224,0,9,32 
426 DATAG ,4,06,09,9,59,0,8 

430 DATAG ,8,0,9,0,9,9,08 


Make sure that your sprite, screen and colour data are loaded at the 
start of the program by adding the following lines to “GAME. INI”. 


EAA SYS MLODE "SCREENS. BIN" ,58232,5 
618 SYS MLODE"COLGOURS.BIN",59332,5 
615 SYS MLODE"SPRITES3.BIN",31236,5 


111 


3 


SPRITE # 
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SPRITE # 


ERUPTION SPRITE 
One of the animations used in 
conjunction with the volcano 


A CRATER SPRITE 
Part of screen 2 background, 


‘sprite, see page 92 


see pages 84, 88 to 89 
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SPRITE # 


SPRITE # 4 


FLARE SPRITE 


MOUNTAIN SPRITE 
Part of screen 2 background, 
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CHAPTER 9 


Bits and Pieces 


There are routines that weren't used in this game but have been written. 
Techniques that should have been mentioned but which never quite 
fitted in. Comments that should have been made but which would have 
ruined the flow. And so is born the bits and pieces section. 


First Bit — Scrolling Up 


A reasonable scroll up can be attained by using the vertical fine scroll 
register and the “print” statement. This method has two disadvantages 
however. It means that you must use BASIC. If you're writing an 
application which uses a lot of memory you may wish to switch the 
BASIC memory block out, to give yourself more room. More importantly, 
using the “‘print” statement means that you can't control the time of the 
scroll by using a raster interrupt. Thus, you are bound to get screen 
flicker during some of the scrolls. To overcome these disadvantages, 
use the machine code routine below. 


PRESeHREXHEE FPSCROLLUP HE KKEEKEHE 
YSCROLLREG .DE 332685 


?TOPLEFT CONTAINS ADDRESS GF TOP LEFT 
7OF SCROLL WINDOW 


TOPLEFT -DE 691 

;FILL IS CHAR CODE FOR SCROLLING ON BOTTOM LIME 
FILL :-DE 633 

;LNUM IS HEIGHTS -1> OF SCROLL WINDOW 

L.AUM .DE §34 


7CNUM IS WIOTHS -12 GF SCROLL WINDOW 
7CNUM .DOF 695 

7TOP IS START OF LIME SCROLLED TO 
TOP -DE #51 

:TOP1 IS START OF LINE SCROLLED FROM 
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TOP’ sDE 253 

‘DELAY IS TIME BETWEEN FINE SCROLLS 
DELAY »DE 636 

F2ENELAY IS WORKING STORAGE OF DELAY 
Z2DELAY -DE 697 

7CFLAG IS COARSE SCROLL FLAG 

CFLAG -DE & 


DEC Z2DELAY 
BEQ SMOOTHUP 
RTS 
?FIRST RESET DELAY 
SMCQTHUP LOA DELAY 
STA ZO0ELAY 
LDA YSCROLLREG 
AND #7 
CMP #8 
BEG COARSE 
DEC YSCROLLREG 


COARSE LOA YSCROLLREG 
ORA #7 
STA YSCROLLREG 
7SET COARSE SCROLL FLAG 
LOA #1 
STA CFLAG 
SCROLLUP LOX LNUM 
? TRANSFER START ADDRESSES TO 2-PAGE 
LOA -TOPLEFT+1 
STA *TOP+1 
STA *TOPI+1 
LOA TOPLEFT 


STA «TOP 
?CALCULATE TOP1 ADDRESS - ¢ TOP +4@> 
cLe 
SCROLLUP@ ADC #48 
STA *TOP1 


BCC SCROLLUP 1 

INC *TOPi+i1 
SCROLLUPL LDY CNUM 
SCROLLUPS LOA ¢ TOP1>,¥ 
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ne ee tt 


STA (TOP?,.* 

NEY 

PPL SCROLLUP2 

DEX 

BEG SCROLLUPS 

LOA #«TOPit+t 

STA *TOP+1 

Lon «TOP l 

STA *TOP 

CLe 
G0 CALC NEW TOF1 ADDRESS 

Boe SCROLLUPOS 
:FILL BOTTOM LINE WITH FILL CHAR 
SCROLLUP3S LOA FILL 

LOY CNUM 
SCROLLUP4 STA ¢TOP12,7Y 

DEY 

RPL SCROLLUP4 

RTS 

~EN 


This assembles to the following data. As usual, you should run this 
program and save the data as an executable file using MSAVE. 


1 REM ***x#* FSCROLLUP.DAT *£*#*%% 

1968 S=49152:FORI=STOS+tS96!:READK:C=C+HtPOKEI,A 
NEAT 

1168 IFCCS L2STSTHENPRINT"DATA ERROR! !":END 


128 DATAZSS ,185,2,249,1,96,173,194 

138 patAae,141,185,2,173,17,208,41 

149 DATA? ,291,8,246,4,206,17,2808 

138 NATASS ,173,17,208,9,7,141,17 

16a DATA2ZSS,169,1,133,2,174,192,2 

ive DATAITS,1890,2,133,252,133,254,173 
So DATALITS,2,133,251,24,165,49,133 
134 NATAZS3S, 144,2,238,254,172,183,e 
2A8 DATAIT? ,-253,145,251,136,16,249,20e2 


Pia NATA2Z4@,11,1685,254,133,252,165,253 
2eea 0A7TA133 ,251,29,144,224,173,1981,2 
P3e OATAIT2,183,2,145,253,136,16,251 


248 DATASS 


The code for the colour scroll is: 


Foe CSCROLLUP #€*4 keke KEK 


2 
re 


YSCROLLREG .DE 53265 
#TOPLEFT CONTAINS ADDRESS OF TOP LEFT 
7OF SCROLL WINDOW 


TOPLEF T -DE 898g 

7FILL IS COLQUR SCROLLER ONTO BOTTOM LINE 
FILL -DE 766 

FLNUM IS HEIGHTC -13 OF SCROLL WINDOW 
LINUM -DE 71 

FCNUM IS WIOTH¢-1) OF SCROLL WINDOW 
CNUM »-DE 782 

*TOP IS START OF LINE SCROLLED To 
TOP »-DE 251 

?TOP! IS START OF LINE SCROLLED FROM 
TOP 1 -DE 253 

FCFLAG IS COARSE SCROLL FLAG 

CFLAG »-DE 2 


‘se ue 


?CHECK SMOOTH SCROLL 
SMOQTHUP LOA *CFLAG 
?COARSE SCROLL FLAG SET? 
CMP #1 
7IF YES THEN COLQUR SCROLL 
BEQ SCROLLUP 
FOTHERWISE 00 NOTHING 
RTS 
SCROLLUP LOX LNUM 
? TRANSFER START ADDRESSES To 7-PAGE 
LOA TOPLEFT+1 
STA *TOP+1 
STA *TOPi+1 
LDA TOPLEFT 
STA «TOP 
GLE 
SCROLLUPA anc #46 
. STA *TOPi 
BCC SCROLLUP1 
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INC *TOPi+ti 
SCROLLUP1 LDY CNUM 
SCROLLUP2 LDA ¢ TOP1?,¥ 
STA (TOP),Y 


RPL SCROLLUPe 


PEG SCROLLUPS 
LOA *«TOPitt 
STA *TOPt+1 
LDA *TOP 1 

STA *TOP 

CLC 


GQ CALC NEW TOP1 ADDRESS 


Bcc SCROLLUP® 


tF ILL LINE WITH FILL COLOUR 
SCROLLUP3 LDA FILL 


LDY CNUM 


SCROLLUP4S STA (TOP1>,* 


BEY 
BPL. SCROLLUP4 
RTS 
»~EN 


The colour scroll data file is: 


PEM *xk*#* CSCROLLUP.DAT *£4*#%% 
$=49152:FORI=STOS+66!:READX:C=C+H:FOKEI,% 
>NESRT 

IFC< >SS8@1THENPRINT"GATA ERROR! !":END 
DATAISS,2,2601,1,240,1,96,174 
NATAIS9,2,173,187,2,133,252,133 
DATALZS4,173,186,2,133,251,24,195 
DATAGA ,123,252,144,2,230,254,17e 
DATA199O,2,177,253,1945,251,136,16 
DATAZ4SS ,202 ,248,11,165,254,133,e52 
DATAI65,253,133,251,24,144,229,173 
DATAISS,2,172,190,2,1945,253,135 
DATAI6,251,96 
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| 
Second Bit — Colour Scrolls : 


Because the machine code routines in this book are designed to be 
relocatable and as flexible as possible, they are not as efficient as 
routines which carry out a specific part of a task. For example, if we 
wrote a routine to scroll exactly x lines of y characters, it would scroll 
faster than our current scroll routines could scroll the same amount. 


The paragraph above is an excuse for the fact that the first screen of the 
game flickers. In its attempt to do both a character scroll and a colour 
scroll during the same interrupt it sometimes does part of the scroll while 
the screen is being displayed. To avoid flicker all graphics tasks should 
be done during the vertical blank. Because we are using inefficient 
routines, the only way to ensure this is to cut out some of the tasks. The 
colour scroll is a prime candidate. We can still have a colourful screen 
however. If we make all of colour memory the same colour, extra colour 
can be introduced by using sprites of various colours. Alternatively, we 
could have bands of colour so that characters change colour as they are 
scrolled. Still another method would be to make some or all of the 
characters multi-colour. With this method we make colour memory 
uniform, thus obviating the need for a colour scroll, and yet each 
character can be up to 4 colours. We could even have characters 
changing colour by changing the multi-colour registers. The only 
drawback to this method is the loss of horizontal resolution of multi- 
colour characters. 


Third Piece — Changing Characters 


We've already covered character animation by changing character 
sets. There are other things we can do with roughly the same technique. 
However, we need a machine code routine to do them. So here’s the 
assembly language for just such a routine. 


PReEOHEKKK CHANGECHAR *£** ee ee ee KK 
-OS 
»BA 49553 
CHARSETPTR .DE 53272 
7PTRYAL IS PTR TO NEW CHAR SET 
PTRYAL DE 733 
7GET NEW PTR VALUE 
LDA PTRYAL 
STA CHARSETPTR 
RTS 
»~EN 
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And here's the corresponding data file. Save it, then run it and save the 
executable file with MSAVE. 


ke¢e¢e¢e4e% CHANGECHAR.CAT ### 544% 
49553:FOQR I = S$ TO S + S3:READ #eC = 
ME KE IL, tNER 

111@ THEN PRINT “DATA ERROR!!": 


How to use it 


You really need at least two slightly different copies of this routine to do 
anything useful. To make another copy, change the second and third 
numbers on line 129 of the listing above. This is the address of ‘charptr’, 
i.e. this is where you will poke in the value the routine should change the 
character set pointer to. The current address used is 733 (ie 
221 +2*256). You should change this to another address which is not 
used for anything else. The two bytes 734 and 735 are not used by any 
other routines, so they are both safe. Using these just means adding 1 or 
2 to the second number of line 120. Having made this change, run the 
resulting program and save the executable file using Msave. 


WARNING: although I've just talked about the character set pointer, the 
routine above changes both the screen and character set pointers. So 
when you calculate the new value of the character pointer, make sure 
you include the value of the screen pointer too. 


The routines are used via the raster interrupt scheduler. At a raster 
interrupt halway down the screen, have RISC call this routine and 
change the character pointer. You tell the routine what to change the 
character pointer to by poking the new value into byte 733 first. Now, ata 
raster interrupt at the bottom of the screen, have RISC call the copy of 
the routine and change the character pointer back to what it was. Tell the 
routine what the value of the character pointer should be by poking it into 
the new “charptr’ address. Using this, it’s possible to change character 
sets halfway down the screen, and then change back at the bottom. In 
fact you could change the character set any number of times down the 
screen. Just remember that the interrupt code takes time to process. 
The video chip will manage to display several scan lines between the 
time the raster interrupt occurs and the time the character set pointer is 
changed. 
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Fourth Piece — Split Screens 


As | warned you in the section above, the “changechar” routine also 
changes the screen pointer. Therefore, the routine might just as well 
have been called “changescreen”. Using exactly the same technique 
as described above, it is possible to display the top half of one screen 
memory block and the bottom half of another. Just remember that the 
character set pointer is changed too, so include it in your calculation of 
the new screen pointer value. 


Fifth Bit — Bidirectional Scrolls 


Since all the scrolling routines use different locations for their variables, 
it is quite possible to use more than one routine on the same screen. You 
could, for example, scroll the top half of the screen to the left and the 
bottom half to the right to simulate traffic flow on a road. If you do use this 
technique there are a few things you should be careful of. First, 
remember that it is going to take some time for the interrupt routine to 
take effect, so leave a line in the middle of the screen which will be 
undisturbed by either scroll. Second, to make sure that you have 
enough time to do everything, start scrolling the top half of the screen as 
soon as you've got past it. Have the scroll routine for the bottom half of 
the screen following hard on its heels. There is no way your scrolling 
routine will ever catch up to the raster beam so you're in no danger of 
causing screen flicker. Since each raster interrupt takes time to 
process, use as few as possible. Instead, place your routines so that by 
the time they are executed, the raster beam is past the point where it will 
cause flicker. 


Sixth Piece — Extended Background Mode 


This is a fairly strange feature. It allows you some control over the 
background colour of each character space when in normal character 
mode. The drawback is that you can only use the first 64 characters in 
the character set. When in this mode, if you poke a value between @ and 
64 to screen memory, you get the character whose screen code you've 
just poked on a background whose colour is given by the normal 
background register. However, if you poke a value above 64 into screen 
memory, you will get one of the characters whose screen code is 
between @ and 64 on a different coloured background. In general, the 
low 6 bits (Q-5) will determine the character, while the 2 upper bits will be 
used to choose between one of four background colour registers. The 
bit pairs and their associated registers are given below. 
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Bit Pair Register 


QO 53281 : standard background 
01 53282 
19 53283 
14 
53284 


Extended background mode is turned on by setting bit 6 of 53265. 
eg. POKE 53265,PEEK(53265) OR 64 

It is turned off by clearing bit 6 of 53265. 
eg. POKE 53265,PEEK(53265) AND 191. 


Seventh Bit — Interrupts 


A problem with interrupts appears to arise when you try to return a stolen 
vector. After having redirected the |RQ vector to a raster interrupt 
routine, it seems impossible to return it to the timer A interrupt. The 
solution | have used is to not return it at all. | just change the vector back 
to the standard value, while maintaining only a raster interrupt. If anyone 
can work out how to restart timer interrupts, | would appreciate hearing 
about it. 
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CHAPTER 10 


Bit Map versus Character 


Bit mapped graphics is sometimes referred to as ‘high resolution 
graphics’. On the Commodore 64 this is misleading, since it would seem 
to imply that bit mapped graphics offers better resolution than character 
graphics (i.e. has more pixels on the screen). This is not the case. In 
both modes, the screen is 320 pixels wide by 290 pixels high. The 
difference between the two modes is not so much what they are, or even 
what you can do with them, but the way you do it. 


When you use character graphics, you generally have a fixed character 
set and a changing screen memory. That is, you change the screen by 
putting different characters on it in different positions. 


When you use bit mapped graphics, you have a fixed screen memory 
and, in effect, a changing character set. Instead of putting characters 
on the screen, you change the definition of the characters already on the 
screen. 


What happens is that when you go into bit map mode, the 64 sets up a 
block of memory which is a1 to 1 map of all the pixels on the screen. That 
is, for every pixel on the screen the 64 reserves 1 bit. Since there are 
320*200 pixels, the block of memory must be 64009 bits, or 8000 bytes. 
We'll be lazy and say that the 64 reserves 8K. 


Mapping Pixels to Bits 


Since there is more than one way to map the pixels onto the bits, we had 
best describe how the 64 does it. The most obvious way, you might 
think, is simply to do it sequentially. That is, the 32@ pixels on the top row 
of the screen correspond to the first 32@ bits (40 bytes) of the 8K bit map 
memory, the 32@ pixels on the second row correspond to the next 320 
bits, and so on. This is NOT how the 64 does it. 
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The way it does it is to act as though the bit map memory block was filled 
with character definitions, which then map sequentially onto the display. 
Thus, the first 8 bits in the bit map memory block correspond to the first 8 | 
pixels on the screen. The next 8 bits correspond to the 8 pixels under the 

first 8, the next 8 bits correspond to the 8 pixels under the second lot, | 
and so on for 8 rows of 8 pixels. This is exactly as though a character 
definition was sitting at the top left of the screen. The first 8 bytes map 

onto this character space. The next 8 bytes map onto the character 
space next to it, and so on. 


Mapping Bits to Pixels on the Hires Screen 


byte 2489 | pixels 312- 623 
pixels 624- 935 
byte 2491 pixels 936-1247 
byte 2492 | pixels 1248-1559 


_byte 2493 | pixels 1560-1871 


~ byte 2495 


Presumably, this mapping was used so that the same routines which are 
used to display character graphics could be used to display bit mapped 
graphics. Efficient, but a little confusing at first. 


When we want to draw something in bit map mode, we must set the bits 
which map onto the pixels which make up the desired picture. This 
means finding the correct bits in memory. Before we discuss the method 
for doing this, we had better describe the mechanics of getting into bit 
map mode. 


Entering Bit Map Mode 
This is done by: 


(a) setting the bit map mode flag. 
This is a single bit flag. Bit 5 of byte 53265 is used. 


e.g. to set the bit map flag without disturbing the rest of the byte. 
POKE 53265,(PEEK(53265) OR 2 ¢ 5) 


124 


e.g. to turn off bit map mode without disturbing the rest of the byte. 
POKE 53265, (PEEK(53265) ND (255-2 7 5)) 


(b1) telling the video chip which 8K block of memory it should use to bit map 
the screen. 


b2. telling the video chip where to find the memory block to be used as 
colour memory for the bit mapped screen. 


These are put together because the same address is used. If you 
remember, in character graphics, byte 53272 was used to tell the video 
chip where to find screen and character memory in the following way. 


Bits @-3 : character memory pointer 
Bits 4-7 : screen memory pointer 


In bit map mode, the same byte is used in a slightly different way. 


Bits Q-2 : don’t count 
Bit 3. : bitmap block pointer 
Bits 4-7 : colour memory 


Bit 3 informs the video chip which 8K block of memory within a video 
bank is used as the bit map area. If the bit is set (1), then the upper 8K of 
the bank will be used. If the bit is clear (0), the lower 8K will be used. 
Since bits Q@-2 aren't used, these are the only two areas which can be 
used as the bit map area. That is, no matter what you make bits Q-2, you 
can still only use the upper or the lower 8K block. This means that in the 
entire 64K of address space there are only 8 possible bit map screens, 
two per video bank. 


Bits 4-7 inform the video chip where to get colour information from. Bit 
map mode doesn't use the same colour memory as is used in character 
graphics. It uses a 1K block. The colour memory block can be any block 
of memory in the video bank whose starting address is a multiple of 1924 
(1K). If bit 4 alone is set, colour memory will be the 1K block starting at 
1924 from the start address of the video chip. If bits 7 and 6 alone are 
set, then colour memory will be the 1K block starting at 12288 (12K) from 
the start of the video bank. 


(Mind you, | can’t predict the results if you make the colour memory part 
of the bit map area. Changing the shapes on the screen would change 
the colour of part of the screen too.) Since the colour memory is only 1K, 
it is obvious that it can only control the colour of individual character 
spaces, not individual pixels. Thus, each character space can be any 
combination of two of the sixteen possible colours. The choice of 
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foreground colour is controlled by the top nybble (four bits) of the 
corresponding byte of colour memory. This determines the colour of 
pixels in that character space which are set (one). The colour of pixels 
which are clear, (ie. background colour), is determined by the bottom 
nybble of the corresponding colour memory byte. 


Using Bit Map Mode 


When you first get into bit map mode you are confronted by rubbish. The 
first thinking to do is to clear the screen. This can be done using the 
following code. 


REM *** CLEAR BIT MAP SCREEN 

FOR I=BMAP TO BMAP+73993 

POKE: 1,8 

NEXT 

REM #** SET COLOUR TO WHITE ON BLACK 
FOR t=t@24 TO 2823 

POKE 1,16 

NEM 


The next thing we want to be able to do is to turn particular pixels on and 
off. The most convenient way of referring to pixels is by x,y co-ordinates 
of a 32@ by 209 grid, as in the diagram below. 


326 x 200 Co-ordinate System 


) 


319 
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lf we use this method of referring to. them we need to do quite a bit of 
calculation to overcome the way they are bit mapped. The following 
formula can be used to find the bit corresponding to the x and y 
co-ordinates of the grid system above. 


BYTE=START +(INT(Y/8)*320) + (8*INT(X/8))+(Y AND 7) 
BIT=7—(X AND 7) 


To turn ona pixel ata given x,y co-ordinate, use the formulae above and: 
POKE BYTE,PEEK(BYTE) OR (2 f BIT) 


To turn off a pixel at a given x,y co-ordinate, use the formulae above, 
and: 
POKE BYTE,PEEK(BYTE) AND (255-2 7 BIT) 


Multi-colour Bit Map Mode 


This mode has exactly the same drawback as the multi-coloured sprite 
mode — horizontal resolution is halved. Each horizontal ‘pixel’ is made 
up of 2 high resolution pixels, and of course, maps onto 2 bits in the bit 
map memory. This mode uses 2 bits per ‘pixel’ to address one of four 
registers, from where it gets the colour code for that ‘pixel’. The 2 bit 
codes and their associated registers are as follows. 


Bit Pair Register 
00 53281 : screen b/ground 
01 upper nybble of bit map colour memory 
10 lower nybble of bit map colour memory 
11 character graphics colour memory nybble 


As you can see, the only one of these registers which applies to the 
entire screen is the screen background register. The rest can be 
individually set for each character space (i.e. block of 8 by 8 pixels). This 
means that extremely colourful displays are possible. This is possibly 
the only area in which bit map mode outdoes character graphics mode. 


Turning on Multi-colour Mode 


Exactly the same method and addresses are used to turn on multi- 
coloured bit map mode as for multi-coloured character mode. The 
single bit flag, bit 4 of byte 53279, controls this feature. So to get into 
multi-coloured bit map mode, first get into bit map mode as described 
above, and then turn on multi-colour mode as described below (or vice 
versa). 


POKE 53279,PEEK(5327@) OR 2 f 4) 
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To turn multi-coloured bit map mode off, turn off multi-colour mode by: 
POKE 53279,PEEK(53270) AND (255-2 4) 


BASIC Bit Mapping 


Because there is so much memory involved in the bit map, and somuch 
calculation needed for plotting points, bit mapping in BASIC is 
extremely slow. In fact, unless you do almost everything in machine 
code, bit mapping is really too slow for any real time application. For 
applications in which the time taken is unimportant, BASIC is adequate. 
Since it is beyond the scope of this book (and my deadline) to provide 
you with all the machine code tools you would need to make bit mapping 
fast enough to use in any real time application, the description above 
should suffice to allow you to use BASIC for bit mapping. 
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APPENDIX A 


Graphics Addresses 

Bit Mapping 

colour memory pointer — bits 4-7 of 53272 
foregound — upper nybble 
background — lower nybble 

enabling bit map mode — bit 5 of 538265 (1 =bit map) 

enabling multi-colour bit map mode — 4 of 53270 (1 =multi) 

multi-colour registers — 53281 : screen background 
— as for single colour mode 
— character colour memory :55296 
to 56295 

memory map pointer — bit 3 of 53272 
(1 =upper 8K of video bank 
@=lower 8K of video bank) 

Character Graphics 

character memory pointer — bits 1-3 of 53272 

enabling multi-colour mode — bit 4 of 53279 (1 =multi) 

multi-colour registers background colour 0 
(standard) — 53281 
background colour 1 — 53282 
multicolour 2 — 53283 
colour memory — 55296 to 56295 

screen memory pointer — bits 4-7 of 53272 

General 

background colour — 53281 

blanking the screen — bit 4 of 53265 (@=blank) 
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border colour — 53280 
extended background mode flag — bit 6 of 53265 (1 =on) 
extended background colour 


registers 
Bit Pair Register 
i) 53281 
01 53282 
10 53283 
11 53284 
horizontal fine scroll register — bits 0-2 of 53274 (@ default) 
interrupt enable register — 53280 


bit @— enable raster interrupt 

bit 1 — enable sprite/background collision interrupt 
bit 2 — enable sprite/sprite collision interrupt 

bit 3 — enable light pen interrupt 

bit 7 — enables any of the interrupts above 


interrupt status register — 53273 


bit @— raster compare flag 
bit 1 — sprite/background collision flag 
bit 2 — sprite/sprite collision flag 
bit 3 — light pen flag 
bit 7 — set when both 
‘any of the flags above are set 
‘the corresponding flag in 53274 is set 


raster compare register — 53266 and bit 7 of 53265 

24 row mode flag — bit 3 of 53265 (9=24 rows) 

38 column mode flag — bit 3 of 53270 (Q=38 columns) 

start of video chip — 53248 

vertical fine scroll register — bits 0-2 of 53270 (3 default) 

video bank DDR — set bits 0-1 of 56578 to outputs 
(1) to change video bank pointer 

video bank pointer — bits 0-1 of 56576 

Sprites 

collision registers sprite/background — 53279 
sprite/sprite — 53278 

colour registers — 53287 to 53294 
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display enable register 
position registers 


expand horizontal size 
expand vertical size 
priorities 

multi-colour enable register 
multi-colour colour registers 


data block pointers 
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— 53269 


— 53248 to 53263 (x,y pairs) 
— 53264 (x hi-bit) 


— 53277 

— 52271 

— 53275 (1 =sprite on top) 
— 53276 (1 =multi) 


— 53281 :screen background 

— 53285 ‘sprite multi @ 

— 53286 :sprite multi 1 

— 53287 to 53294 :standard sprite 
colour registers 


— last 8 bytes of screen memory 
(wherever that may be) 


APPENDIX B 


The Sound Chip Registers 


Bit significance Register usage 
(Voice-1) 
REG No. b7 


0 Low byte of note frequency 
1 High byte of note frequency 
2 Low byte of pulse width 

3 


High byte of pulse width 


Wave form control 


Attack/decay for envelope 


Sustain/release for 
envelope 


ouFt 


Voices 2 and 3 are mirror images of the above except that they are stored 
in registers 7 to 13 and 14 to 20 respectively. 


Bit significance Register usage 
(Filter) 
21 Low cutoff frequency 
22 High cutoff frequency 
23 Filter switches and resonance 
24 Filter modes and volume 
Register usage 
(Misc.) 
Paddle - x 
Paddle - y 


Oscillator - 3 output 
Envelope - 3 output 


NOTE: The sound chip registers are accessed via memory locations 
54272 to 54300. 
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REGISTERS @ AND 1 (Location 54272 and 54273) 

(Low and high bytes of note frequency) 

These two registers form a two byte value corresponding to the 
frequency of a note played. To obtain the actual frequency of the note 
being played multiply the two byte value by 0.059604645. 


REGISTERS 2 AND 3 (Location 54274 and 54275) 

(Low and high bytes of pulse width of pulse wave) 

These two registers form a 12-bit value corresponding to the pulse width 
of the pulse wave. The width of the low pulse of the pulse cycle as a 
percentage of the width of the pulse cycle is given by the following 
formula: 

Low pulse width = (12-bit value/40.95)% of the pulse cycle. Where alow 
pulse width of 0% of 109% is a constant DC signal (i.e. Zero output) and 
a low pulse width of 50% is a square wave. 


REGISTER 4 (Location 54276) 

(Waveform control) 

This register serves several functions where each bit serves a seperate 
function. 

Bit 0 (Gate Bit): 

The gate bit controls the envelope generator. Setting this bit to a 1 turns 
on the ADSR envelope and begins the envelope cycle at the attack 
stage, goes on to the decay stage and finally the sustain. The sound will 
continue at the sustain level until the gate bit is set to zero, in which case 
envelope control will continue to the release stage. If the gate bit is set to 
zero before the sustain stage has been reached then envelope control 
will jump to the release stage. 

Bit-1 (Sync Bit): 

Setting the sync bit to 1 causes the waveform from voice 3 to be 
syncronized with voice 1. Varying the frequency of voice 3 will change 
the overall waveform output of voice 1. 

Bit-2 (Ring Mod Bit): 

Setting the ring mod bit to a 1 replaces the triangle waveform of voice 1 
with a ‘ring-modulated’ combination of oscillators 1 and 3 for giving the 
output a bell type sound. Varying the frequency of oscillator 3 causes 
changes in the overall waveform output of voice 1. 

Bit-3 (Test Bit): 

Mainly used for testing, this bit when set to 1, causes oscillator 1 to reset 
to @ and lock there until the bit is reset. However, it can be used to 
synchronise oscillator 1 to an external device. 


Voices 2 and 3 are mirror images of the above except that they are 
stored in registers 7 to 13 and 14 to 2@ respectively. 


NOTE: The sound chip registers are accessed via memory locations 
54272 to 54309. 
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Bit-4 (Triangle Waveform): 
When set to 1, this bit selects the triangle waveform to be used for output 
of oscillator 1. 


Bit-5 (Sawtooth Waveform): 
When set to 1, this bit selects the sawtooth waveform. 


Bit-6 (Pulse Waveform): 
When set to 1, selects the pulse waveform. 


Bit-7 (Noise Waveform): 
When set to 1, selects the noise waveform. 


REGISTERS 5 (Location 54277) 

(Attack/decay) 

This register is used to select the attack and decay rate for voice 1’s 
ADSR envelope. 


Bits 4 — 7 (Attack Rate): 
Selects an attack rate from @ — 24@ where the attack times range from 
2ms to 8s. 


Bits @ — 3 (Decay Rate): 
Select a decay rate from @— 15 where the decay times range from 6ms 
to 24s. 


Register 6 (Location 54278) 

(Sustain/release) 

This register is used to select the sustain level and release rate for voice 
1’s ADSR envelope. 


Bits 4 — 7 (Sustain Rate): 

Selects a sustain level from @ — 240 where the sustain setting is a 
proportion of the volume setting. To obtain the actual sustain volume use 
the following equation: 

Sustain volume = (volume setting *sustain setting) /240 


Bits @ — 3 (Release Rate): 


Selects a release rate from @ — 15 where the release times range from 
6ms to 24s. 


REGISTERS 7 — 13 (Locations 54279 — 54285) 

(Voice 2) 

These registers are functionally identical to registers — 6 (voice 1) with 
the following exceptions: 

1. SYNC — Synchronises oscillator 2 with oscillator 1. 


2. RING MOD — Replaces the triangle output of oscillator 2 with the 
ring modulated combination of oscillators 2 and 1. 


REGISTERS 14 — 20 (Locations 54286 — 54292) 
(Voice 3) 
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These registers are functionally identical to registers @— 6 (voice 1) and 
registers 7 — 13 (voice 2) with the following exceptions: 

1. SYNC — Synchronises oscillator 3 with oscillator 2. 

2. RING MOD — Replaces the triangle output of oscillator 3 with the 
ring modulated combination of oscillators 3 and 2. 


REGISTERS 21 AND 22 (Locations 54293 and 54294) 

(Cutoff frequency) 

These two registers form an 11-bit value corresponding to the cutoff (or 
centre) frequency of the programmable filter. They select a cutoff value 
of 9 — 262 where the cutoff frequency ranges from 30 Hz — 12KHz. 


REGISTER 23 (Location 54295) 
(Resonance/filter) 
This register is used to select the resonance and filter switches. 


Bit-@ (Filter Switch 1): 
When set to 1, voice 1 is sent through the filters before output. When set 
to Q, voice 1 is sent directly to output. 


Bits 1 and 2 (Filter Switches 2 and 3): 
Same as bit 9 but for voices 2 and 3 respectively. 


Bit-3 (Filter Switch EXT): 
Same as bit @ but for external audio input. 


Bits 4 — 7 (Resonance Setting): 

This register forms a 4-bit value corresponding to the resonance setting 
of the programmable filter. They select resonance settings that range 
from 16 — 249 in steps of 16. The resonance acts on a small band of 
frequencies around the selected cutoff frequency. 


REGISTER 24 (Location 54296) 
(Voice 3’s switch/filter modes/volume setting) 


Bits 9 — 3 (Volume Setting): 

These four bits are used to select volume settings which range from @— 
15. This is a master volume control, however each voice may be varied 
by either setting a large attack and setting the gate bit to @ during attack 
or by setting a different sustain level for each voice, thus achieving 
different volume levels for each voice within the absolute level set by the 
above four bits. 


Bits 4 — 6 (Filter Modes): 

These three bits are used to select the filter modes for the 
programmable filter. Bit 4 selects the ‘lowpass’ filter, bit 5 selects the 
‘bandpass’ filter and bit 6 selects the ‘highpass filter. More than one 
filter may be selected at one time. For example, a ‘notch reject’ filter can 
be set up by selecting the lowpass and highpass filters. 

Bit-7 (Voice 3 Switch): 

Setting this bit to 1 causes voice 3 output to be disconnected without 
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affecting any of the voice 3 controls. This switch is used when voice 3 |s 
used to control another voice and the output of voice 3 is not needed. 


REGISTERS 25 AND 26 (Location 54297 and 54298) 

(Paddles) 

These registers allow the microprocessor to read the positions of a pair 
of paddles connected to port-1 (labelled port-2 on computer casing). 
The paddles should give readings of @ for minimum resistance and 255 
for maximum resistance. By reading these registers and writing their 
contents to other sound chip registers, it is possible to contro! the sound 
chip with the paddles. 


REGISTER 27 (Location 54299) 

(Oscillator 3 output) 

This register allows the microprocessor to read the waveform output of 
voice 3 where any waveform will produce values between @ and 255. For 
example, if the sawtooth is selected, register 27 will output incrementing 
values from @ to 255 at a rate depending on the frequency setting of 
voice 3. 

REGISTER 28 (Location 54309) 

(Envelope 3 output) 

Same as register 27, but this register allows the microprocessor to read 
the envelope output of voice 3. 


MUSIC NOTE VALUES 

This appendix contains a complete list of NOTE#, actual note, and the 
values to be POKEd into the HI FREQ and LOW FREQ registers of the 
sound chip to produce the indicated note. 
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MUSICAL NOTE 


OCTAVE 
Cc-0 


C#-0 
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OSCILLATOR FREQ 
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12 


28 
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OSCILLATOR FREQ 


C#-1 851 3 CO 83 | 

| ihe 3 | 134 

3 187 

| 3 | 244 

32 «| C-2 | 1072 |} 4 | 48 : 

| 33 C#-2 1136 4 112 | 
34 D-2 1204 4 180 
35 D#-2 1275 4 251 
36 E-2 1351 5 71 
37 F-2 1432 5 152 
38 F#-2 1517 5 237 
39 G-2 1607 6 71 
40 G#-2 1703 6 167 
4) A-2 1804 z 12 
42 A#-2 1911 7 119 
43 B-2 2025 7 233 
48 c-3 2145 8 97 
49 C#-3 2273 8 225 
50 D-3 2408 9 104 
5) D#-3 2551 9 247 
52 E-3 2703 10 143 
53 F-3 2864 11 48 
54 F#-3 3034 VW 218 
55 G-3 3215 12 143 
56 G#-3 3406 13 78 
57 A-3 3608 14 24 
58 A#-3 3823 14 239 
59 B-3 4050 15 210 
64 c- 429) 16 195 
65 C#-4 4547 17 195 
66 D-4 4817 18 209 
67 D#-4 5103 19 239 
68 E-4 5407 21 31 
69 F-4 5728 22 96 
70 | FH-4 6069 23 181 
71 G-4 6430 25 30 
72 G#-4 6812 | 26 156 


MUSICAL NOTE 
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80 
81 


A#-4 
B-4 
C-5 
C#-5 
D+5 


7647 
8101 
8583 
9094 
9634 
10207 
10814 
11457 
12139 
12860 
13625 
14435 
15294 
16203 
17167 
18188 
19269 
20415 
21629 
22915 
24278 
2572) 
27251 
28871 
30588 
32407 
34334 
36376 
38539 
40830 
43258 
45830 
48556 
51443 
54502 
57743 
61176 
64814 
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OSCILLATOR FREQ 


FILTER SETTINGS 


Low cutoff frequency (0-7) 


High cutoff frequency (0-255) 


Resonance (bits 4—7) 
Filter voice 3 (bit 2) 
Filter voice 2 (bit 1) 
Filter voice 1 (bit 0) 
High pass (bit 6) 
Bandpass (bit 5) 
Low pass (bit 4) 
Volume (bits 0-3) 
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APPENDIX C 


Complete Memory Map 

Address Description 

(Decimal) 

? Chip directional register 

1-2 Memory and tape control 

3-4 Floating point — fixed point vector 

5-6 Fixed point — floating point vector 

7 BASIC counter. Search character *:’ or end of line 

8 Scan-quotes flag 

9 Column position of cursor on line 

10 Flag; 2 = LOAD, 1 = VERIFY 

11 BASIC input buffer pointer; subscript number 

12 Default DIM flag 

13 Variable type flag: FF = string, @@ = numeric 

14 Numeric type flag: 80 = integer, 00 = floating point 

15 DATA scan flag: LIST quote flag; memory flag 

16 Subscript flag; FNx flag 

17 Flag; @ = INPUT, 152 = READ, 64 = GET 

18 ATN sign flag; comparison evaluation flag 

19 Current I/O prompt flag 

20-21 Where BASIC stores integers used in calculations 

22 Temporary string stack pointer 

23-24 Last temporary string vector 

25-33 Stack for temporary string descriptors 

34-37 Utility pointer area 

38-42 Product area for multiplication 

43-44 Pointer to start of BASIC program 

45-46 Pointer to end of BASIC program; start of BASIC 
variables 

47-48 Pointer to end of variables; start of arrays 

51-52 Pointer to start of string storage — strings move 
down from top of available memory towards arrays. 

53-54 Pointer to end of string storage 

55-56 Pointer to top of RAM available to BASIC 
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113-114 
115-138 


139-143 
144 
145 
146 
147 
148 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160-162 
163 
164 


Current BASIC line number 

Previous BASIC line number 

Pointer to BASIC statement (for CONTO 
Current DATA line number 

Pointer to current DATA item 

Jump vector for INPUT statement 
Current variable name 

Current variable address 

Variable pointer for FOR/NEXT statement 
Y save; operator save; BASIC pointer save 
Comparison symbol 

Work area; function definition pointer 
Work area; string descriptor pointer 
Length of string 

Garbage collect use 

Jump vector for functions 

Numeric work area 

Floating point accumulator 1; Exponent, 4 byte 
Mantissa, Sign 

Series evaluation constant pointer 
Accumulator 1 overflow 

Floating point accumulator 2 

Sign comparison — Acc 1 with Acc 2 
Acc 2 rounding 

Cassette buffer length; series pointer 
CHRGOT BASIC subroutine — gets next BASIC 
character 

RND storage and work area 

ST-status byte 

STOP and REVERSE flags; Keyswitch PIA 
Timing contant for tape 

Flag: 9 = LOAD, 1 = VERIFY 

Serial output; deferred character flag 
Tape EOT received 

Register save 

Number of OPEN files 

Current input device 

Current output (CMD) device 

Tape character parity 

Flag: byte received 

Output control flag: direct = 128; run = 0 
Tape pass 1 error log 

Tape pass 2 error log 

Jifie clock — Tl and TI$ use this 

Serial bit count 

Cycle count 
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165 
166 
167 
168 
169 
170 
171 
172-173 
174-175 
176-177 
178-179 
180 
181 
182 
183 
184 
185 
186 
187-188 
189 
190 
191 
192 
193-194 
195-196 
197 
198 
199 
200 
201-202 
203 
204 
205 
206 
207 
208 
209-210 
211 
212 
213 
214 


215 
216 
217-240 
241 


Tape write bit count 

Pointer to tape buffer 

Tape write count; input bit storage 

Tape write new byte; Read error; input bit count 
Write start bit; Read bit error 

Tape scan; count 

Write read length; Read checksum; parity 
Pointer to tape buffer; scrolling 

Tape end addresses; end program 

Tape timing constants 

Pointer to start of tape buffer 

Tape timer; bit count 

RS232 next bit to send 

Read character error; next byte out 
Number of characters in current file name 
Current logical file number 

Current secondary address 

Current device number 

Pointer to current file name 

Write shift byte; Read input character 
Number of blocks remaining to Read/Write 
Serial word buffer 

Tape motor interlock 

\/O start addresses 

KERNAL setup pointer 

Current key pressed (see Appendix H) 
Keyboard buffer counter 

Flag: screen reverse-1 is on, is off 
Pointer to end-of-line for input 

Cursor log (row, column) 

Current key pressed 

Flag: cursor blink enable (@ is on) 

Cursor blink delay 

Character under cursor 

Flag: cursor on/off 

Input from screen/keyboard 

Pointer to screen line on which cursor appears 
Position of cursor on line 

Q = direct cursor, else programmed 
Screen line length, 21, 43, 65, 87 


Current screen line number — To change cursor 


position, 201, 210, 211 and 214 must be changed 
ASCIl value of last character printed 
Number of INSERTs outstanding 
Screen line link table 

Dummy screen line link 
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242 
243-244 
245-246 
247-248 
249-250 
251-254 
255 
256-266 
256-318 
256-511 
512-600 
601-610 
611-620 
621-630 
631-640 
641-642 
643-644 
645 
646 
647 
648 
649 


650 
651 
652 
653 


654 
655-656 
657 
658 
659 
660 
661-662 
663 
664 
665-666 
667 
668 
669 
670 
671-672 
673 
674 
675 


Screen row marker 

Pointer to current location in colour memory 
Pointer to keyscan table 

Pointer to RS-232 receiver buffer start 

Pointer to RS-232 transmitter buffer start 

Free zero-page locations 

BASIC storage 

Float-ASCII work area 

Tape error log 

Processor stack area 

BASIC input buffer 

Logical file table for OPEN files 

Device number table for OPEN files 
Secondary address table 

Keyboard buffer 

Pointer to start of memory for operating system 
Pointer to end of memory for operating system 
Serial bus timeout flag 

Current colour code (for PRINTed character) 
Colour under cursor 

Screen memory page indicator 

Maximum length of keyboard buffer — must be less 
than 11 

Key autorepeat (@ = cursor controls, 255 = all) 
Pre-repeat delay 

Inter-repeat delay 

Keyboard flag for SHIFT, CTRL and C = keys. If 
SHIFT pressed, bit Qis set, if CTRL, bit 1, ifC =, bit2 
Last shift pattern 

Pointer for keyboard table set-up 

Shift mode (@ = enabled, 128 = disabled) 
Auto scroll down flag (@ = on, else off) 

RS-232 control register 

RS-232 command register 

Non-standard (bit time/2 — 19Q) 

RS-232 status register 

Number of bits to send 

Baud rate (full) bit time 

Pointer to RS-232 receiver buffer (end) 

Pointer to RS-232 receiver buffer (start) 
Pointer to RS-232 transmit buffer (start) 
Pointer to RS-232 transmit buffer (end) 

Holds IRQ during tape operations 

CIA 2 (NMI) Interrupt control 

CIA 1 Timer A control log 

CIA 1 Interrupt log 
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676 

677 

678 
679-767 
768-769 
770-771 
772-773 
774-775 
776-777 
178-779 
780 

781 

782 

783 
784-785 
788-789 
790-791 
792-793 
794-795 
796-797 
798-799 
800-801 
802-803 
804-805 
806-807 
808-809 
810-811 
812-813 
814-815 
816-817 
818-819 
828-1919 


19024-2939 
2040-2047 
2048-49959 
32768-49959 
40960-49151 
49152-53247 
93248-53294 
53248-57343 
54272-54300 
55296-56319 
56320-56335 
56576-56591 
57344-65535 


CIA 1 Timer A enable flag 

Screen row marker 

PAL/NISC flag, @ = NTSC, 1 = PAL 
UNUSED 

Error message link 

Basic warm start link 

Tokenization routine link 

Print tokens link 

Start new BASIC code link 

Get arithmetic element link 
Temporary storage of A during SYS 
Temporary storage of X during SYS 
Temporary storage of Y during SYS 
Temporary storage of P during SYS 
USR function jump 

Hardware interrupt vector (EA31) 
Break (BRK) interrupt vector (FE66) 
NMI interrupt vector (FE47) 

OPEN vector (F34A) 

CLOSE vector (F291) 

Set input device vector (F2QE) 

Set output device vector (F259) 
Restor |/O vector (F333) 

Input vector (F157) 

Output vector (F1CA) 

Test STOP-key vector (F6ED) 

GET vector (F13E) 

Close all files vector (F32F) 

User vector (FE66) 
Load-from-device vector (F4A5) 
Save to device vector (F5ED) 
Cassette buffer — useful for holding machine code 
when no files are being used 
Screen memory 

Sprite pointers 

Basic programs and variables 
ROM plug-in area 

ROM Basic 

Unused 

6566 video chip 

Character set 

6581 Sound chip 

Colour memory 

6526 Interface chip-1 

6526 Interface chip-2 

ROM operating system 
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57344-65535 Unused 
65499-65525 Jump table including the following: 


65478 Set Input channel 

65481 Set Output channel 

65484 Restore default I/O channels 
65487 INPUT 

65490 PRINT 

65505 Test STOP key 


65508 GET 


APPENDIX D 


Keyboard Graphics and how to get them. 


Symbol! Keypress Symbol Keypress 
& oa cE 88 td a R 
i= ax w aS] «x @Q 
| m oO &) x -F 
& a c oll | x v 
i=" | x =B [ies x + 
m7 ax T rm ax Y 
m@™ ax ou bel ax st 
ext = o | a P 
ES «x @ oo «x - 
fi a 8s ti ox H 
@) «x J @) ax «K 
(8 am L me | a nN 
a | a an [=| fa 4 & 
Bl a s PF) ax Xx 
tf x A ax 2 
| a 8s 
Cc SHIFT L cy BHIFT @ 
SHIFT O m7 SHIFT P 
AJ SHIFT I Ca SHIFT U 
7] SHIFT K co SHIFT J 
| @.] SHIFT W eS SHIFT Q@ 
&S SHIFT + oo SHIFT V 
S GHIFT o SHIFT WN 
& SHIFT 2 ¥y SHIFT & 
se SHIFT xX & SHIFT A 
mi BHIFT E My SHIFT D 
i SHIFT & FY SHIFT C 
pea SHIFT F i SHIFT R 
vi SHIFT T Ww) GHIFT 6 
iti SHIFT B ti GHIFT — 
8 | BHIFT H C3 GHIFT Y 
Bi SHIFT £ 
oe UP ARROW € LEFT ARROW 
ww PI 


As well as these there are a set of symbols used to represent control 
Characters such as colour controls and cursor controls. 


The symbols vary depending upon whether the computer is in upper 
case or lower case mode. 
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The symbols ares 


Upper case. 


Syabol Keypress 
ud CLR 
| HORE 
Bt] Cursor down 
0 cursor up 
Bi Cursor right 
Hi cursor left 
a ctri | 
| ctrl 2 
He | ctri 3 
he ctrl ‘ 
@ ctrl 
| ctrl 6 
| ctrl 7 
ctrl 8 
| ctrl 9 
& ctri ° 
liwer case 

Syaboal Keypr ess 
=. | HOME 
2 | Cursar down 
| ctrl 2 
aN ctrl 4 
bs 9 ctrl 8 
| ctrl 9 


BB The & syabol is the special shift key 


located to the left of the left hand shift 
key 
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APPENDIX E 


Machine Code Routine Addresses 


(Addresses marked with “*” are used to communicate with the routines. 
The rest you should not use if you are using a routine which uses it.) 


Fine scroll down 
Address Use 
* 679 bottom left of scroll area 
* 680 
* 681 fill character (generally a space) 
* 682 height (—1) of scroll area 
* 683 width (—1) of scroll area 
* 684 delay between each pixel scrolled 
685 delay countdown 
2 coarse scroll flag 
Colour scroll down 
Address Use 
* 686 bottom left of scroll area 
* 687 in colour memory 
* 688 fill colour 
* 689 height (—1) of scroll area 
* 690 width (—1) of scroll area 
2 coarse scroll flag 


Fine scroll up 


Address Use 

* 691 top left of scroll area 

* te in screen memory 

* 693 fill character 

* 694 height (—1) of scroll area 

* 695 width (—1) of scroll area 

* 696 delay between pixel scroll 
697 countdown delay 

* 2 coarse scroll flag 
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Colour scroll up 
Address 


* 698 
* 699 
* 700 
* 701 
* 702 
" 2 


Fine scroll right 
Address 


793 
704 
705 
706 
707 
708 
709 
2 


+ * * * * * 


Colour scroll right 
Address 


* 710 
* F711 
* 712 
* 713 
* 714 
2 


Fine scroll left 
Address 


715 
716 
agg 
718 
18 
720 


+ + £ + F 


Use 


top left of scroll area 

in colour memory 

fill colour 

height (—1) of scroll area 
width (—1) of scroll area 
coarse scroll flag 


Use 


top left of scroll area 

in screen memory 

fill character 

height of scroll area 
width (—1) of scroll area 
delay 

countdown delay 
coarse scroll flag 


Use 


top left of scroll area 

in colour memory 

fill colour 

height of scroll area 
width (—1) of scroll area 
coarse scroll flag 


Use 


top left of scroll area 

in screen memory 

fill character 

height of scroll area 
width (—1) of scroll area 
delay 

countdown delay 
coarse scroll flag 
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Colour scroll left 
Address 


Raster Interrupt Scheduler 
Address 


* fat 
* 728 
* Teg 
* 730 
* F331 
* 7a2 


Change character pointer 
Address 
* 133 


Set up screen memory 
Address 


* 736 
~ far 
* 738 
* 739 
=z 


Set up colour memory 
Address 


* 748 
* T49 
* 750 
* 751 


Stop fine scroll down 
740 


Use 


top left of scroll area 

in colour memory 

fill colour 

height of scroll area 
width (—1) of scroll area 
coarse scroll flag 


Use 
start of data blocks 


current data block — same 
as 727,728 initially 
address of routine used 

in case of timer interrupt 


Use 
new pointer value 


Use 
pointer to start of data 
pointer to start (—1) 


of screen memory 
coarse scroll flag 


Use 


pointer to start of data 


pointer to start address 
in colour memory 


save y fine scroll register 
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Stop fine scroll right 
742 


Stop fine scroll left 
743 


Sound routine 
* ‘753 


* + + & 
™~ 
On 
On 


760-762 
763-765 


save x fine scroll register 


save x fine scroll register 


inplay flag — which voices 
lo-byte of voice1 data pointer 
lo-byte of voice2 data pointer 
lo-byte of voice3 data pointer 
hi-bytes of data pointers 
countdown delays 

inplay masks 
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A 
BIE ws 6 bones 2 UE 4 8 pee eAwS Caen ReoER'e HoweE BE He 135 
B 
CGI x cess se ron 2c owes d Cee G pape Rae Ran 8e ems ¢ OR 13 
RS I ne regan ey rhareen exe a0 cee memes anion @-« anee sens 3 
DCC BRTNNG wecses acc wmameacews on ime x omen ees © Oak 120 
Bee CED csce pens otes ge hoes Peewee eee ee em nee 8 
STE 5 secesecenenin amine weenwn aoc Mikes Sen a 25 
ROY cus ccestinwirrmnie anteos mamma G aielns dei 2S at 123 
=a (IORI cane cones ¢ eee ss oases see ee One 2 om 126 
SIT sxising sino ickonrel ee mainnb-2 sence is ts dem 8 nes wereleN RW 124 
=I ROVING cuans teens cneer ss came dauee wend ee 8 125 
se PIG acs ee cate = x tess x SF tack ae teas BRAwe medaw ex 127 
SERENE siciccises wy scnsctntcin Ye mricpics Shep Seba, nicdaienins eesenion ts wien a a0 49 
SEW ou cecks ce ednnd b toon heed Se ced & bates 6600s aoe NA 18 
e 
GHENEING CNAMACIE! GEIS 2 cc cee ew ceeds cee st Kae hee 118-119 
gee se i): |) | ee 74 
sigiscscge co gf: |! ————————— ee ee ee eer ere 52 
CORA SO a conan cvs wt Gan ones oe Ss od tle oo 52 
TI on keen nome octane oan (eeane serene ee 55 
PREIS SCIONING x x ecncces Semen 4 nace ds SRdHS AERRER EMO 78,94-103 
CEN hoses db berated Sees C4 ash dedi eens BES were 5 
UR I ui he esas Reet bee a ds BE OG 118 
TT CS ico nc xtereakedhnn thie d Beads TERRE SS ERAE ES 12 
TAI Is Sedeted adpes oh hs 6 conten sees Fh snee 6: 136 
D 
0a by otek 45 diods t 0 OES 4 94 eti b Bake ie dese te eA 135 
RE I icc wk Sectors ov Hmkw scenes s ded a dca cbwaen bee 7-8 
E 
ac | ee eee Sree ere yee 20 
enabling 
== TRRTVEEE sui cene wc GASs 5 RRaws 4 E HOUSE 4 PERE EERE ERNE 8 124 
—— (FA) WISE: nn c kos brea 2 o cee et seee no oes ou DROS s 20 
—— JUICY GN TIS «és & cas oo cess < tame caswsecawss. 127 
— EES wk bees 5 CESS E & NBER FB ORG 46 COU EE ee 30,35-36,134 
— PONE 5 io Hee0s 2 Eee Ye 1 8 8G Cees Laewe ER Ewes BER 3 13 
TIGRIS ak 5 6 E56 6 5 CRERS 1H OUR 4 HKG OS Fores Ss OHS 2 EEE xs 30 
PRDOYWUNG SOUNIGS os cs cccas sc Hews 2 5 hes se ees Be eea a DETER 12 


extended background mode ................-...-5. 120-121 
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TCP SPOUTS, gf vcigs woe cane guded boenn x oun 77-78,80,93,103-105 
WUE Si 2 i aidan on woucne anno wm cme me mem wewncmn 5 29,35,134 
G 
PIO oe cane 2 6 KESGRE dds pen x mxmins wuwmn 04 30,35-36, 134 
OFSphicSs ACCESSES: sss cisi sc cage iuase uwkRS At amen en 129-131 
H 
SRS: sas 4 & hes we £0889 4 ey oe LAS dew de 52-53 
peijras alice :/|\): i 93-105 
] 
interrupt 
SD . tient gacons aiming binges ocrbhs tee Ee Abad t a 18 
EE He Oe sorcks tomy wu ren 2 pews Fe © EEA EERE A! 20 
AE ininipii sea mnie ena: ae cece ¥ cage: sean blank i eae 4 18 
PIM set dae com as camer wu coma e emames Hee Oe ESTES £4SRE Se 18 
ot OE ee eee 19,121 
EL 4 cannes ue wacmn- sen mew ey Ee woe. FER BE Hee E HES 21-25 
REE sisi paca an nS eee emt Somes Hen eden 20 
SOO Seog en eowwd 20set ax wart 0c oue s Senedd ee tan 17,121 
a PEPE oa: men ve wom s xOmee ee KEES EOUOME £256 6 E ESR SE Eas 18 
J 
(| | ee 5,74,90,108 
K 
WEVDORIE SOGT, oc. - een as cucinexacaseaswurns i oews oeuede resis 17 
M 
TMEDPING PIRSIS aces wu EW Ad » cocoa ae meas awn «ewe em be s 123 
POS 6.5 BGs Pike ws eed awrkadind nde xen meme ata ae wens 27 
WAVES Wi RE6G5 15 Kha eo hommes wan we eons emmy peEea RY RoMes 26 
CPUSTEROUT LIN sae ken ee necmen weeunew nemaax caren wa 127-128 
multicolour characters... 00... cece ec nnasctseuasunens 53-54 
multicolour sprites 2.20.0... eee cece cece eee. 85-86 
PTE wg 565 108 6 & BBWS 2k & eo enews we Gc emmrias a s 17,29,44,47 
P 
PIACING SPFIIOS: ss 6c sibs pease Kn twh ue ncmayevmwsunesauca 9-11 
POWNETS as 5 eux 542 $50 89 Biden an cee 4 i dmnwd awdus amsqans 10,52 
PRIME c wma © 5 ¥ESHRE BE EEDA 6 Rav vans om ecantce winners ewawra macenwey 12 
programmable characters ........... 0.0 e ee. 52 
BPOSIOCHNG WOM BASIS «seuss GbvGa ox bean a cwews eneuamnmaeus 9 


PUG WATE aos od esos oy 9495 6% PEET EK cae 0 necnmrneeren ome 31,134 


R 


raster compare register ...... 0... cece ee eens 19 
Pe TE heck ocean pigeons 108d du Hdd Desa sd ces 19-25 
” copincin a ceptnies oéceaned daddies n Sees nie een Eanmeaees Al, tao 
RIGA. casa baw caenes caawes ansiel Be cbews deade neds ce 782 
Pe eS) i cake 694 wks baw dated 2 ee a dared 6 veeees aks 80 
laekea eek: |; i ————— ae 31,134 
FREES 4G eh Haws Lease eer) Dts He tease come de 81-83 
S 
APE ashe § tek ani teeter tetas candhent neniee 5] 
Re  cekats 5:5 ier heh ak 9 4 ee hehe 50,120 
I, x wrcnsoaca «mines @ ee meben tcermns an Seem swe escaseee. wiceeea an we 75 
BOSS nc aes bau 22 K642 60-65, 75, 77-80,93-105,113-117,120 
2G) || ———— ae ne 120 
EN: ews 4b ks 2 bees 4 Meee s bees sd 17,29,31-44,47,134-136 
sprites 
pois PINON): ae. & & SERS 5 k RW SERRE SHEDS 6 RSE GRA RS 92 
CU 25 sasue 16 es 2 oe HR OE RESS 1 FIGS 4 OSS TRE 12 
Sek 2), ee a ee ee eer 7 
—~ GSI sag ¢ 6 na 8 a5 905 5 BESS Ye Kea 2 2 ROR Eg SS Ge 8 
— ESI, vee s 1 eee eo 8 OEE CRORE 8 eo & oeSs CRE Ea 13 
— RNG ces ke be os SoS eR SoU ae REWS 6 ERE RES Ee Ze 10 
” ORTON ov ese s 4 GEE YR EREUs FaERE Kg HSK E CURE 2 Bee 10-14 
——RUe «< css eu 2 eames 6 e 8SKO SY CEE 26 CRO Oe HERDS SEwS CREE 12 
woe BONER sso 5 Mew & 6 RSH E 2 SOTS FS TK CORES ES BRE 11 
= BIS 6 ver cw es BERG 56 O0RG ORES BK POO ER SSR E Pew REED 12 
SUSAN wc wee as caeaws o 6 Beer 4 hors 2S EUS 2d HOSE EES 30-31,135 
T 
TAGE 4s ce renies pasows saswed ak Ceeminnaes yas ase Oma 134 
CARE! acs Berens ae COeX 46 UIE EOREE 9 eC~Es ¢ PERS Os 0 17 
PSG oe swxums amas ee vemwe esas 5 sans oe wenene se ceo i F 
cpus Seif). —_——————  ea 14-15,93 
pe a 78 
d 


Wig als ee |; ae 


V 


VICI FATS cca ae a ween ae ee we ny © Res eR EES 9, 49-50 
EG 2.28 8 hocks 4 crew e hanes Kees 2h re wx eS 10,125 
eo asd o ae on te Bad « hardened iWin 26 F0kb ha ames 29 
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SOUND & GRAPHICS 
MELBOURNE HOUSE REGISTRATION CARD 


Please fill out this page and return it promptly in order that we may keep 
you informed of new software and special offers that arise. Simply fill in 
and indicate the correct address on the reverse side. 


BO aca. cienecs exec dininast’ Vein sevens pnicaieseni-te: Hc eon Ge: ohintetn'/ dnt taea: dh laianbuivol dod aes Bate 


Wal PIOCUCT Cis YOU PUHNENBEO? 26s cscs bi coos bbceS 5 ORSG Ss Ree R EHS 
WIG CORYMECTOOFOUGWI! ccc s viene series 2 caw 6 dean ve ewRS B64 
Where did you learn of this product? 

[_] Magazine. If so, whichone? ..........0... 00000 eee 
|_| Through a friend 

(_] Saw it in a Retail Shop 

[_j| Other. Please specify ........0....0.00.0 0000 eee 
Which magazines do you purchase? 

POMERNE  255 &hceaa 2 § HRCA GS HES 4K EERE 5 EOERS & RR 2 BED 8 KEERE R 
CIGOMBIGUEIG:  paecas 36 cnsarsaras sA7wR4 Esa s 5 ERS £ ew © Guess 8 
What Age are you? 


[] 10-15 [] 16-19 Lj 20-24 [j Over 25 
We are continually writing new material and would appreciate receiving 
your comments on our product. 


How would you rate this software? 


Lj Excellent (_| Value for money 
| Good _| Priced right 
[| Poor Lj Overpriced 


Please tell us what software you would like to see produced for your 
COMMODORE 64. 


| 
| 
| 
| 


Commodore 64 Sound and Graphics is an exciting new book 
containing original and innovative material which makes the 
Commodore’s sophisticated sound and graphics capabilities 
accessible for both the first time user, and the more experienced 
programmer. 


This book will show you how you can use all of the Commodore’s 
fascinating capabilities. Peter Falconer explains the features in 
easy-to-understand language and involves you in the design and 
coding of a full-scale game which uses all the elaborate graphics 
and superb sound potential of the Commodore 64. As well, this 
book supplies you with general-purpose machine code routines 
like scrolling, Raster interrupt scheduler and music routine, ready 
for you to use in your own programs. 


Learn all about Sound and Graphics as you work your way through 
the program provided — and enjoy the game you will create! 


This book will enable you to harness the power of the Commodore 
64, whatever your application. 


£6°79) 


ISBN O-8b16b1-144-6 
UPTLE 


eG 
House | | 


IVI Publishers 9 I | tt 


